









EDITO 3 

EDUCATIQUE 85 4/5 

LA REVUE DES SHARPENTIERS 


SOMMAIRE DU N° 1 A 12 8 

LIBRAIRIE /ANNONCES CLUB 10 
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PUISSANCE 4 

llllli 

PC 1500 


LE PC 1500 AU SUPERMARCHE . . . 

ililiiii 

LISTINGS 80 COLONNES 

lllllSi 

INVADER LM 

illifli 

INVERSION VIDEO TOTALE / ENLEVEMENT 15 

PC 1251-1245 


U-BOAT 

llllii 

BOXING / SCRAMBLE REVU .... 

lis» 

ERRATA (redéfinition de caractères) . 

S.S1§ 

PC 1261 


HYPER OLYMPICS 

litlû 

FONCTIONS GRAPHIQUES. . . . 

22 

PC 1401 


CYCLO 
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MASTER 

24 

INTERCEPTOR 
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PC 1350 


TIR A L'ARC 


PROGRAMME GRAPHIQUE / OLPHOUS . 27 

MZ 700 


LAVALLEE 

32 

NEIGE 

....34 

MZ800 


LES TOURS DE HANOI 

,...40 

MZ 80 B 


GESTION DE STOCK 

...42 

MZ 80 K 


TRADING 

...45 

PC 5000 


UN JEU DE CARTES 

...57 

MULTIPLAN ET LE CE-516 P 

...58 


« La programmation, c'est comme la 
pétanque » dit un vieux proverbe japo- 
nais. Force est de reconnaître que la 
sagesse orientale reste d'actualité au fil 
des siècles. Le menu de ce numéro 13, 
composé en grande partie de programmes 
écrits par de Géniaux Sharpentiers n'en 
serait-il pas la preuve ? 


CRITERIUM SHARPENTIERS 

I 

Les règles en sont très simples mais ! 
peuvent rapporter gros aux SHARPEN- j 

TIERS courageux : I 

1. Tout Sharpentier dont l'article, le j 

programme ou l'astuce aura été publié î 
dans le bulletin SHARPENTIER sera j 

d'office inscrit au club, gratuitement, î 

pour une nouvelle année. { 

2. A la parution de chaque bulletin, j 

une main innocente tirera au sort l'un j 
de ces auteurs qui gagnera ainsi l'un j 
des plus récents produits SHARP. j 

Le tirage au sort du bulletin n° 1 2 a ! 
désigné M. H. BENOIT, auteur de plu- j 

\ sieurs utilitaires sur MZ-700, il gagne j 

j ainsi un PC-1247. j 

j Pour le n° 13, il y a un PC-1421 à I 

j gagner. j 

j A vos plumes. j 

REDACTEUR EN CHEF 
S. BIZOIRRE 
REDACTEURS 

L. BURELLER 

M. GIRONDOT 
J.-F. VIGNAUD 

SECRETAIRE DE REDACTION 
G. HAYET 


Un G.S. * se fixe un but et tente, tout en 
finesse, d'amener son ordinateur au plus 
près de son objectif. On distingue 2 types 
de G.S, : le tireur, homme d'expérience 
qui pratique un jeu dangereux mais terri- 
blement efficace appelé Langage 
Machine ; et le pointeur pour qui seul le 
résultat compte. Sa méthode, le BASIC, 
bien que plus lente, est très sûre. 
L'avantage, au Club, c'est qu'en fin de 
partie, tous les G.S. gagnent : l'un d'en- 
tre eux repart même avec un ordinateur 
tout neuf poiir la partie suivante. Alors, 
cet été, si vous découvrez, sur la plage, 
un homme penché sur un parallélipipède 
rectangle bourré de touches, ne le déran- 
gez surtout pas, il s'entraîne. 

Bonnes vacances. 

S. BIZOIRRE 


* Toute ressemblance avec les gentils 
membres d'un club concurrent ne serait 
que pure coïncidence. 


ATTENTION. 


Les locaux du club seront 
fermés du mercredi 
31/7/85 au mercredi 28/8 

mDÊKKÊÊÊÊÊÊÊ 


ONT PARTICIPE A CE NUMERO 


M. ARNAUD 
S. CHAGNOUX 
A. OZANNE 
F. RUBATEL 


P. LAURENT 
S. KNECHT 
J.-A. BERRO 
P. BRASSEL 


R. THIBERT 
G. COMBES 
0. WALTER 


PUBLICITE 

834.93.44 
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JOURNEE EDUCATIQUE IMS 


Pour la journée Educatique 1985, 
UEiimée par Albert Duerocq, des 
enseignants de toute la France se 
sent retrouvés au Méridien de Paris 
peur assister aux exposés et parti- 
ciper aux débats. Penidant lesinter- 


Par la qualité et l'expérience de ses interve- 
nants, la journée SHARP Educatique 85 s'est 
tout de suite positionnée comme l'un des 
grands événements de la coopération entre 
l'enseignement et l'industrie. 


séances, Iles! professeurs ont pu se 
familiariser avec la gamme des pro- 
duits SHARP, obtenir de nombreux 
renseignements sur la campagne 
enajeiàneéieèt et surtout é m e ttr e u n 
arana nomb re de suggestions, i _ 1 

yiHiiu iivnwic wc p | 


Elè\j^ d^Mon^^urhjlagitiri iHt4DfstrPétfielcBI<m- 
luet abonde en ce sens, soulignant en outre l'in- 
térêt, lorsqu'unmême problème est donné à 
toute une classe, de proposer dès valeurs 
numériques différentes selon les élèves, cha- 



Dès les premières minutes, Albert Ducrocq 
donne le ton, en analysant les tendances à 
moyen et long terme et en les justifiant par de 
nombreux détails et anecdotes. Il définit très 
clairement les liens entre les évolutions indus- 
trielles, technologiques et pédagogiques, 
entraînant tous les participants, toujours de 
plus en plus loin, de plus en plus vite, au rythme 
de l'évolution permanente de l'homme. Le sujet 
est posé : « Le cerveau va fonctionner autre- 
ment, les décisions à prendre nécessiteront 
l'utilisation de là machine par l'homme, ce qui 
bouleverse autant les activités professionnel- 
les que la formation ». 

Puis, Monsieur Daniel Magnin, professeur 
agrégé à Lille, au lycée Baggio et ;à l'institut 
Industriel du Nord, évoque ses expériences rela- 
tives aux possibilités dutalcul électronique. 

Depuis 1 5 ans. Pionnier de cette pédagogie, 
il a observé durant ces 3 dernières années un 
phénomène de très rapide évolution, due à l'ap- 
parition des micro-ordinateurs de poche, qui a 
impliqué une modification en profondeur de son 
enseignement. « Par la réalisation de calculs sur 
la base de formules exactes, au lieu des tradi- 
tionnelles approximations, apparaît une valo- 
risation de l'enseignement théorique qui per- 
met de comprendre la raison des choses et 
offre ainsi une efficacité pédagogique accrue ». 


curt ayant la possibilité de procéder à d^s veri- 
ficEjtiônls systéEnat||üës tout' lé lonijcTun cal- j 
cul|Alli|sioiji es^fait^au'Iyi^'dé'to^xTfeïisi' 
lequel Patrick B anluet c fait ses études secon- 
daires, où une expérience fut conduite pour 
enseigner toute s les discip ines, dont le fran- 
çais, les sci ence s h a tü r e ll fe s et l'histoire, en 
recourant à l'ordinateur. ! 

Professeur de chimie analytique l'université 
des Sciences Techniques du La ngued oc, Mon- 
sieur Jean-Yves Gai expose l'activité qîi'il 
déploie à Montpel ienxiurj mëttrë la miefo- J 
informatique au [service de là chifriié. « Lé dêyé- 1 
loppement du calcul conditionnel devrait révo- 
lutionner complètement, non seulement la 
pédagopie,imais également-la pratjiqué-dej la 
chimie, car c'est un calcu l (j|ui permet q e faire 
la prévision de toutes les réactions, quelles que 
soient les interférences ». i i i 

Monsieur Dao Lena, professeur de physique à j 
Nice, présente ensuite un ensemble de pjo- i 
grammes, dont il est l'auteur, développés sur 
SHARP PC 1500 et bientôt sur SHARP PC 
1350. C'est une véritable démbns^ratipn des , 
multiples possibilités de l'informatique de 
poche depuis le fichier de molécules jusqu'à la 
mécanique céleste. Bien au-delà de la simple 
résolution des problèmes, la micro-informatique 
permet des recherches pédagogiques traitant 
simultanément la matière enseignée et la com- 
préhension de la programmation. 






I 



Le miero-tidinateur pefmetigatfmentele^ ôrfs-~t -assisté par ordinateur de sorte que son inter- 
ser des èil^d-élpves. -Pf jfesseu r-au^ 4ydée I Mention était très attendue. Elle passé en revue 

Legt Matbias.de Chalon-sur-Saône, Monsieur les problèmes psychologiques et matériels, les 

Jose ph Ad ams! i évo que l es p rogram m es qu'il langages, le sentiment de non-adaptation res- 
ia conçus pour son SHARP PC 1500 et la i senti par certains enseignants, et insiste sur la 

manière dont il es utiiisje ppur suivre tout à la constatation dans ce domaine d'une grande 

fois la classe entière et chaque élève. ISur la i mouvance, volontiers génératrice d'un senti- 

idurértfunran^ ment de prudence. Le réflexe est alors d'atten- 

tuet-peut-êt Ffrfidèlement réeon stitué :-vérita- dre les prochains équipements, or c'est surtout 

ble aide à l<iJéciskimdont4'en;>eigpan:^reste ; ce qu'il ne faut pas faire. Monsieur Poly expli- 

_ île s eul maître,,. _ que l'intérêt pour les professeurs de travailler 

_ Aofess^r -^fieole -Normale supérieure de avec le matériel dis P° nible P our accélérer leur 

JSaidt-Æudkàatgâiiensèignemeht ajj Con- formation dont le retard est P atent 11 ex P |, P ue 

s e r vatoire na ti o nal ide s Art s e t I n é tlers, Mon- ?» aileurs sa grande satisfaction d être partie 

siepr Àhdré Poly a]nconte$tabemênt pté en prenante dans I utilisation pedagogique de 

Franck un &és pionniers ce l' Enseignement ; ! évolutipn (Je la technologie. 



Reste-il une place pour les micro-ordinateurs 
de poche dans le cadre du plan micro développé 
actuellement par le gouvernement dans les éco- 
les ? Faux problème* répond Monsieur Kuik, 
directeur du département calcul micro de 
SHARP. Dans un cas, ce sont des micro- 
ordinateurs de table installés en poste fixe dans 
les établissements scolaires, dans l'autre cas 
des micro-ordinateurs de poche, donc transpor- 
tables et individuels, utilisables à tout moment 
tant à l'école que chez soi. Il y a donc complé- 
mentarité et non dualité : c'est toute la richesse 
de l'offre informatique et, pour notre part, chez 
SHARP, nous souhaitons le développement 
rapide du plan gouvernemental. 

Rejoignez les 6 000 adhérents actuels du club 
des utilisateurs de micro-ordinateurs SHARP : 
le club des SHARPENTIERS, conseille judicieu- 
sement Monsieur Sylvain Bizoirre, car ce dépar- 
tement de la société SHARP répond quotidien- 
nement à tout problème posé par un adhérent 
ou par un groupe d'adhérents. Il a 3 missions : 

INFORMATION, 

ASSISTANCE et 
COMMUNICATION 

C'est la pièce maîtresse mise au point par 
SHARP pour assurer la liaison entre SHARP, les 
professeurs, les élèves, les utilisateurs et les 
partenaires industriels et commerciaux. Il suit 
également certaines expériences pédagogiques 
dont celle du. lycée technique de Melun qui, 
autour de la réalisation d'une maquette géante 
du SHARP PC 1 350, fait appel aux connaissan- 
ces de différentes disciplines telles que : archi- 
tecture, dessin industriel, menuiserie, électri- 
cité, micro-soudure. 

Des professionnels de ces différents corps de 
métier, contactés par les élèves, collaborent à 
la fabrication de cette maquette. 

En conclusion, Albert Ducrocq affirme que l'ère 
de l'ordinateur permettra à l'homme de con- 
trôler plus rapidement l'évolution de ses raison- 
nements et de ses connaissances. La forma- 
tion ainsi acquise mettra à sa disposition l'en- 
semble des informations. Sa réflexion et ses 
décisions seront ainsi en adéquation avec les 
nécessités de l'ère future. 


LA REVUE 
DES 

SHARPENTIERS 


SOMMAIRE 
DES NUMEROS I A 12 


NUMERO 1 


PC 1211 

ASTUCES (magnétophone, caractères 
spéciaux). 

COURRIER 

PROGRAMMES 

FACTORIELLES 

CALCULS AVEC 9 DECIMALES 
IMPOTS 

LOGITHEQUE PC 1211 


NUMERO 2 


PC 1211 

ASTUCES (erreur 3, chaînes de caractères, 
formules) 

COURRIER 

PROGRAMMES 

INTEGRATION PAR LA METHODE DE 
WEDDLE 

JEU - BOITE NOIRE 

LOGITHEQUE PC 1211 

PC 1500 

PRESENTATION PC 1500 + CE 150 

MZ 

PRESENTATION CLUB 

NUMERO 3 

PC 1211 

ASTUCES (extension mémoire, création de 
lignes) 


PROGRAMME 
JEU DU PENDU 
CREATION DE BULLETINS DE 
SALAIRES 

LOGITHEQUE PC 1211 

PC 1500 

PEEK ET POKE 

AMELIORATION DE LA FONCTION BEEP 
TABLE DES CODES ASCII 
PROGRAMMES 
TELECRAN 
RENUMEROTATION 
GRAPHISMES 3D. 

MZ 80B 

Astuces (répétition automatique, flèches 
curseur, copie du basic, gestion des sons, 
adresses utiles) 

MZ 80K 

SUPER BASIC 
PROGRAMME 
rAÇPADF 

LOGITHEQUE MZ 80B, K 


NUMERO 4 


PC 1500 

REASSIGNATION DU CLAVIER ET DES 
CARACTERES. 

STATUS ET RND 

LANGAGE MACHINE, PREMIERS ESSAIS 
ADRESSES UTILES 
PROGRAMMES 
COURSE VOITURE 
MUSIQUE 

GRAPHISMES 

PC 1211 

MODIFICATION DU CURSEUR 
PROGRAMME 
L'ILE AU TRESOR 
LE CHATEAU DE TH IP 
LOGITHEQUE PC 1211 

PC 1251 

PRESENTATION 

MZ80K 

SUPER BASIC (suite) 

EDITEUR ASSEMBLEUR 
ADRESSES UTILES 
PROGRAMMES 
CITY (JEU) 

COURSE (JEU) 


MZ80A 

CLAVIER AZERTY 

MZ80B 

ASTUCES 

UTILISATION DES FONCTIONS LOGIQUES 
PROGRAMME 
LABY (JEU) 

LOGITHEQUE MZ 80K, A, B 


NUMERO 5 


PC 1500 

LANGAGE MACHINE (2) 

BASIC ETENDU (RENUM, DELETE, DISP) 
CLAVIER KATAKANA 
PROGRAMMES 
PC GRARH 
BASICOIS 

EX07 (jeu d'aventures) 

GRAPHIQUES 

FONC LINE (utilitaire) 

PC 1211 

6 NOUVELLES INSTRUCTIONS 
ASTUCES 
PROGRAMME 
POLINT (jeu) 

HORAIRE (trains) 

PC 1251 

MEMORY MAP 
LES VARIABLES 

LOGITHEQUE PC 1211, PC 1251 

MZ 80K 

STRUCTURE DU CLAVIER 
PROGRAMME 
LABY 3D 
BANQUE 

MODIFICATIONS BASIC 5060S 
DESSIN 

MZ 80B 

ASTUCES 

INITIALISATIONS BASIC 
PROGRAMME 
JEU DE LA VIE 


NUMERO 6 


NOUVEAUTES 


PC 1500 

TRAITEMENT D'ERREURS 





LES MACRO INSTRUCTIONS 
CREER DE NOUVEAUX MOTS CLES 
LOGITHEQUE 

ERRATA CLAVIER KATAKANA N° 5 

PC 1211 

ACCES MEMOIRE SANS SESAME 
PROGRAMME 

AIDE A LA PHOTO ASTRONOMIQUE 

PC 1251 

MEMOIRE VIVE, MEMOIRE MORTE 
LA LIGNE BASIC 
LA ZONE RESERVE 
L'AFFICHEUR 
PROGRAMME 
GESTION CCP 

LOGITHEQUE PC 1211, 1251 

MZ80B 

COMPOSEUR TELEPHONIQUE 
PROGRAMME 

LOGO HAUTE RESOLUTION 
LOGITHEQUE MZ 80K, A, B 


NUMERO 7 

ACTUALITES 

PC 1500 

L.M. LEÇON 1 
LA FONCTION INPUT 
LA VALISE DU SHARPENTIER 
PROGRAMMES 
CHECK SUM 
ANALYSE DE PARETO 

PC 1251 

LANGAGE MACHINE 
POSSIBILITES GRAPHIQUES 
POSSIBILITES DE L'IMPRIMANTE 
PROGRAMME 

TRACE DE COURBES 

MZ 700 

PRESENTATION 

PROGRAMME 

BOMBARDIER 

MZ 3500 

SYSTEME D'EXPLOITATION E.O.S. 

MZ80K 

ASTUCES POUR BASIC 5060S 
PROGRAMMATION STRUCTUREE (1) 
LES CODES INCONNUS DU Z 80 


NUMERO 8 


NOUVEAUTES 

CHAMPIONNAT D'EUROPE D'OTHELLO 
APPLICATION PROFESSIONNELLE : 
PROBLEME DE ROBINETS 

PC 1500 

L'EVALUATEUR 
L.M. LEÇON 2 
PROGRAMMES 
TEMPTER (jeu) 

DEFENDER (jeu) 

TOURS DE HANOI (jeu) 

PC 1251-1245 

MEMOIRE SYSTEME 
BOUCLES FOR-TO-NEXT-STEP 
PROGRAMMES 
DESASSEMBLEUR 
RENUM 
INVIDEO 

GENERATEUR DE FONCTIONS 
REPERTOIRE TELEPHONIQUE 

PC 1211 

GESTION DE L'ALPHANUMERIQUE 
PROGRAMME 

LE CHATEAU D'HUS (jeu) 


MZ 3500 

LOGICIEL MULTIPLAN 

MZ 80B 

ASTUCES (DELETE BASIC, copie BASIC, 
G ET à répétition) 

PROGRAMME 

C.A.O. 3D 

MZ 700 

ASTUCE 

MEMOIRE VIDEO 
PROGRAMME 

ISOLA (jeu) 

MZ80A 

PROGRAMME 

GRENOUILLE (JEU) 

MZ 80K 

ASTUCES 

CARACTERES ACCENTUES 
RECOPIE D'ECRAN 
PROGRAMMATION STRUCTUREE (2) 
PROGRAMME 
ALDEBARAN (jeu) 

LOGITHEQUE 



LOGITHEQUE MZ 80K, A, B 



NUMERO 9 


NUMERO 11 


NOUVEAUTES 

APPLICATION PROFESSIONNELLE : MZ 
80K ET RADIOAMATEUR 


PC 1500 

COMPOSEUR TELEPHONIQUE 

L.M. LEÇON 3 

LES BOUCLES ET LES 

SOUS-PROGRAMMES 

PROGRAMMES 

DERIVATEUR (calcul de dérivée) 
MONITEUR HEXADECIMAL 
BOITE A ASTUCES TOUS PC 

PC 1211 

PROGRAMME 

STATIS (tiques) 

PC 1251-1245 

MEM SYSTEME 
EXTENSION DE RSV 
PROGRAMMES 
' TIMER PHOTO 
ORGUE 

PACMAN (jeu) 

PC 1401 

PC pratique, PC curieux 

MZ 700 

AMELIOREZ VOTRE BASIC 
LES SECRETS DE LA MINI TABLE 
TRAÇANTE 
PROGRAMMES 

LECTURE K7 (utilitaire) 
ALLIGATOR (jeu) 

MZ80B 

HU-BASIC 

PROGRAMME 

TRAITEMENT DE TEXTES 

MZ 80K 

PROGRAMME 

PETIT CHEVAUX (jeu) 

MZ80A 

GROS TITRES 
PROGRAMME 

TIR A LA CIBLE (jeu) 

LOGITHEQUE 



NUMERO 10 


NOUVEAUTES 

CONCOURS INTERNATIONAL D’OTHELLO 
APPLICATIONS PROFESSIONNELLES : 
INFORMATIQUE AGRICOLE 

PC 1500 

INTERFACE MINITEL 
LES CODES CACHES DU LH-5801 
INVERSION VIDEO PARTIELLE 
DETOURNEMENT DU CLAVIER 
LIGNE BASIC EN ZONE RESERVE 
LES INCONNUS DU MODE RESERVE 
L.M. LEÇON 4 
PROGRAMME 

MONITEUR SHARP 

PC 1251-1245 

METTEZ VOS BOUCLES AU PAS 
PROGRAMMES 

RENUMBER (utilitaire) 

DISP (utilitaire) 

JEU DE SIM 

PC 1211 

PROGRAMME 

NAVIGATION ASTRONOMIQUE 

PC 1350 

PROGRAMME 

JACK POT (jeu) 

MZ 700 

K BASIC V5 

LES INSTRUCTIONS CACHEES DU S. 
BASIC 

PROGRAMME 

FISH (gestion de fichiers) 

MZ 80K 

PROGRAMMATION STRUCTUREE (3) 

L.M. SUR MZ (tous MZ) 

MZ80B 

PROGRAMME 
XRAY (utilitaire) 

BASIC SB 6510+ + 

LOGITHEQUE 



NOUVEAUTES 

SHARP ENSEIGNEMENT 

PC 1500 

GESTION DU CLAVIER 
OPTIMISATION DES CE 159 ET CE 161 
MONITEUR HEXA (suite) 

L.M. LEÇON 5 
PROGRAMME 

DECATHLON 

PC 1211 

CALCULS FINANCIERS 

PC 1251 

UN PEU DE L.M. DANS BEAUCOUP DE 
BASIC 

CLASSEMENT ALPHABETIQUE 
DESSIN ANIME 
MANUEL LM PC 1251 Errata 
PROGRAMMES 
SCRAMBLE (jeu) 

AWELE (jeu) 

PC 1261 

LE TABLEUR 

PC 1401 

PC L.M. PC CURIEUX, PC PRATIQUE 
PROGRAMME 

START MOGURA (jeu) 

PC 1350 

UNE HISTOIRE DE CODES ASCII 
L’INTERFACE SERIE DU PC 1350 
GESTION DE L’AFFICHEUR 
PROGRAMME 

LABY 2D. (jeu). 

MZ 700 

LE LANGAGE FORTH 
ALIMENTATION DE SAUVEGARDE 
ORDRE COMPACT POUR LE K. BASIC 
L’ACCES AUX ACCENTS 
PROGRAMME 

TRAITEMENT DE TEXTE 

L.M. SUR MZ (tous MZ) 

MZ 80K 

PROGRAMMATION STRUCTUREE 

MZ 80A 

ASTUCES 



MZ80B 

PROGRAMME 

DESASSEMBLEUR 

COPIEZ VOS MASTER DISQUETTES 
LE MONITEUR SB 1510 PAS A PAS 

LOGITHEQUE 


MZ700 

ASTUCES 

BASIC CENTRONICS 
MIDIFICATIONS AU K. BASIC 
OPTIMISATION DES JOYSTICK 
TRITURONS LES TRIS 
L.M. SUR MZ (3) 

PROGRAMME 
SAISIE L.M. 


MZ80A 

GOTO ET GOSUB PARAMETRABLES 

MZ 80B 

COMMUNICATION 
ASTUCE FENETRES 

LE MONITEUR SB 1510 PAS A PAS (2) 
LOGITHEQUE 


NOUVEAUTES 

DOSSIER SYSTEME 

SPC 5000 
PROGRAMME 
BARCODE (SPC 5000) 


DOSSIER ENSEIGNEMENT 

DES MZ 80K DANS UN LABORATOIRE 

D'ENSEIGNEMENT 

PROGRAMME 

SUPER MATH (tous PC) 

FORMULES POUR LE BAC (tous PC) 


PC 1211 

PRGRAMME 

CADRAN SOLAIRE 


TOUS PC 

CARTES MEMOIRE DES PC 


PC 1251 

PROGRAMME 
MONITEUR L.M. 

REDEFINITION DE CARACTERES 
SAUVEGARDE SELECTIVE 
MASTER MIND (jeu) 

TRI NUMERIQUE 


PC 1261 

PROGRAMME 
EXPLORATOR (jeu) 


PC 1401 

PROGRAMME 
SUBMARINER (jeu) 


PC 1350 

PROGRAMMES 
SNACKY (jeu) 
RESEARCH (utilitaire) 


DOSSIER PC 1500 


MZ800 

PREMIERES LIGNES 












tocopie de la grille ci-dessous (5 lignes de 40 caractères) à rai- 
son d'une case par caractère ou espace ; et doit mentionner, 
en cas de vente, le type exact de l'appareil, la date d'achat, le 
prix de vente, ainsi que vos coordonnées complètes : nom et 
adresse. Le Club se réserve le droit de refuser toute annonce 
ne répondant pas aux critères ci-dessus. 



Ci-joint le texte de mon annonce à paraître dans le prochain bulletin, accompagné de son règlement 
(80 F) à l'ordre du club des SHARPENTIERS. 


A partir de notre numéro de septembre, nos colonnes seront 
ouvertes à vos petites annonces. Exclusivement réservées aux 
particuliers, pour la vente ou la recherche de matériel d'occa- 
sion, elles devront nous parvenir 1 mois avant la parution du 
bulletin. 

Votre annonce doit impérativement utiliser l'original ou une pho- 


DANS VOTRE BIBLIOTHEQUE... 


USHMPDnw 

Entre PROUST et VOLTAIRE, vous pourrez mainte- 
nant glisser votre volume du SHARPENTIER. Nous 
avons rassemblé, en un seul volume de 120 pages, 
la reproduction fidèle des numéros 1 à 5 du bulle- 
tin du club. Ce recueil vous fera participer à la nais- 
sance de notre club (1981) et vous fournira tous 
les programmes, astuces et connaissances acquis 
durant les 2 premières années d'activité des Shar- 
pentiers. Bien au-deià, l'achat de ce volume repré- 
sente un investissement durable que les bibliophi- 
les du monde entier s'arracheront dans les siècles 




MANUELS L.M 
PC 1500 PC 1251 


va 

\ «> 


M 

ADRESSE : 


vous prie de bien vouloir lui faire parvenir 

□ Recueils) des n° 1 à 5 des bulletins SHARPENTIERS 
au prix de 110 F (port compris) 

□ Bulletins) SHARPENTIER n° 6 □, 7 □, 8 □, 9 C , 10 □ 
au prix de 20 F chacun 

□ Bulletins) SHARPENTIER n° 11 □, 12 1 13 □ 
au prix de 25 F chacun 

□ Manuel(s) Langage Machine PC 1500 

□ Manuel(s) Langage Machine PC 1251 
au prix de 180 F l’un (port compris). 

Je sais que ce livre est en anglais 

et qu’il s’agit d’un manuel de référence 

Ci-joint un chèque de francs. Signature 

Date 


Disponibles en exclusivité au club des Sharpentiers, vous 
pouvez vous procurer ces 2 manuels soit par correspon- 
dance au prix de 180 F l’un (port compris), soit directe- 
ment au club, le mercredi après-midi (exclusivement) au 
prix de 170 F. 

Ces manuels, en anglais très bien documentés, sont des 
ouvrages de référence et n’abordent par l’initiation au lan- 
gage machine. 


Signature 




PUISSANCE 4 


Ce jeu pour PC 121 1/12 (com- 
patible avec les autres PCI est 
un grand classique parmi les 
jeux de jéflexion et de tactique. 


Il se prête comme on le voit fort bien à la pro- 
grammation. Vue la mémoire dont dispose le 
PC 1211,1a surface de jeu est réduite à un échi- 
quier de 6x6 cases. 

En horizontal il est numéroté, de gauche à 
droite de 1 à 6. En vertical de bas en haut, on 
numérote de 0 à 5. 

Je vous rappelle brièvement et pour mémoire 
la règle du jeu : Il s'agit d'aligner horizontale- 
ment, en diagonale ou verticalement 4 pions 
sachant que l'échiquier est disposé verticale- 
ment et que donc les pions tombent toujours 
(loi de pesanteur) au plus profond d'une 
colonne (de 1 à 5). On peut déborder l'échiquier 
par le haut une colonne allant de 0 à 6. 

Pour jouer intialisez le PC avec (en mode DEF) 
SHFT D. La machine joue : SHFT A 
Vous jouez, la machine rispote : SHFT S. Que 
le meilleur gagne ! ! 

R. Thibert. 


20: "A"P=-2:F0R 
R=1T0 6 

30:T=R+8A<R>+35 
:y=T+S:a=0:S 
=1*6=0! IF T> 
81NEXT R: 
GOTO 290 

40:K=A<T-3>: IF 
K<9LET G=l* 
IF A<T-16>=K 
LET G=2:IF A 
<T-24)=KLET 
G=3 

50*N=<X+.1G*<K< 
1>+WG*<K=1>> 
*03+10. 125-T 
'•'8 >=3 > : U=N 

60: L=-H 

70 : G=A < T-S > : H=G 
: I=G: IF G<9 
LET K=A<T-2S 
>:G=G+fOH=H+ 
K: IF KC9LET 
G=G+A<T-3S) 

80 : J =A < T +S > : M=H 
+J: I=I+J: IF 
JK9LET K=A<T 
+2S): I=I+K: J 
=J+K: IF K<9 
LET J=J+A<T+ 
3 S } 

90: IF G=INT G 
LET G=WG 
100: IF G<1LET U= 
U+G+X:IF G>L 
LET L=G 
110: IF H=INT H 
LET H=WH 
120: IF H< 1LET U= 
U+H+XslF H>L 
LET L=H 
130: IF I=IHT I 
LET I=WI 

140: IF K1LET U= 
U+I+X: IF I >L 
LET L=I 

150: IF J=IHT J 
LET J=HJ 
160: IF JC1LET U= 
U+J+X: IF J>L 
LET L=J 

170: IF L+X>HLET 
N=L+X 

180: IF V>82THEN 
220 

190:1*1=0: IF ACV-S 
>=1LET M=l: 

IF ACV-2S>=1 
LET M=2:IF A 
<V-3S>=1LET 


>=1LET K= 1 : 
IF A<V+2S>=1 
LET K=2*IF A 
<V+3S>=1LET 
K=3 

210:IF M+K>OLET 
0=M+K 

220: IF S=1LET S= 
7: GOTO 60 
230: IF S=7LET S= 
9: GOTO 60 
240: IF 0=3 IF N=. 

29LET N=. 3 
250: IF 0=3 IF N<. 

3LET H=- 1 
260: IF 200H=INT 
PIF N=.29LET 
N=.3 

270: N=200N+U."10: 
IF P<NLET P= 
N*Q=R 

280: NEXT R 
290:BEEP 2: IF 
INT P=7Û 
PR INT "GAGNE 

II 

300: IF <INT P=60 
>+<P<0)PRINT 
"PERDU" 

310: PRINT Q:K=.l 
: GOTO 360 
350: "S"K=1: INPUT 
Q 

360: AtQ+8A<Q)+35 
>=K: A<Q)=ACQ 
> + l : IF K=1 
THEN 20 
370: END 

400: "D"CLEAR :H= 
.Q3:X=.Û5:K= 
E8+.1 

410: FOR R=0T0 7: 
A<R+27)=K:A< 
R+83>=K: A<8R 
+27>=K: A<8R+ 
34>=K:NEXT R 



OU NE VOUS EN LAISSEZ 


Tapez ce listing grâce au moniteur Sharp et sauvez-le sur cassette par : 
CSAVE M « BIDI » ; & 5CF0, & 5FFF 


PAS COMPTER ! Pour lister un programme sur CE-1 50 en 80 colonnes, faire : 

CALL & 5CF0. 


Nous vous fournirons dans le prochain bulletin l'adaptation pour les autres 


Avez-vous souvent vérifié lu liste d'achats que 
vous remet la caissière au supermarché ? 

Vous le feriez facilement si vous l'aviez vous- 
même enreaislrée sur votre PC pendant votre par- 
cours dansle magasin. 


J'ai naturellement intitulé « CADDY » ce petit programme de saisie de 
données. Il vous permettra de confondre une caissière éventuellement 
étourdie. 

Vous pouvez enregistrer 20 noms d'articles (ou davantage, selon votre 
capacité mémoire) de moins de 10 lettres avec leur nombre et leur prix 
unitaire. 

Le PC tourne dans une boucle d'attente intitulée « Je suis prêt » et il 
n'en sort que dans 3 cas : 

• par la touche « 1 » pour enregistrer un achat (« enter » pour passer 
au suivant) ; 

• par la touche « 2 » pour lister vos achats ; 

• par la touche « 3 » pour vous donner le total des articles et leur prix. 
En cas d'erreur de frappe, effacer l'écran par CL. 

On peut facilement sophistiquer ce petit programme très simple pour 
obtenir 2 ou plusieurs listes d'achats distinctes. (1,2,3 pour M. X et 
A,B,C pour M. Y par exemple). 

Remarquez l'astuce des lignes 10-15-17 pour dimensionner un tableau 
maximum sans tenir compte de l'extension mémoire. 

COMBE Georges 


ÎO " CADDY "POKE &734E, 255s ON ERROR GOTO 15s GOTO 17 
15 POKE &734E ? PEEK &734E-1 

1 7 CLEAR s K=PEEK &734E s D I M m i K J , A C K ) , M i K J 
20 NAIT O 

30 ><*==! NKEY* s IF X*=" "PRINT " JE SUIS PRET" s GOTO 30 
40 IF X*=" 1 "GOTO 70 
50 IF X*= "2 "GOTO 90 
60 IF X*="3"G0T0 120 
65 GOTO 20 

70 NAIT : INPUT "ARTICLE 

75 I NPUT " NOMBRE ? " ? N s I NPUT " PR I X UN I T A I RE - ? " „ B 
80 A *i I 3=B$: A( I 3=B:M( I ï=Ns 1 = 1 + 1 s GOTO 20 
90 NAIT SPRINT "UOICI LA LISTE"s J=0 
100 PRINT STR* Mi I 3? " M ?A*(J)s M a " ? Ai J 3? " 

F " s J=.J+ is IF J< I GOTO 1 00 
110 GOTO 20 
120 S=05T=0 

130 FOR L=OTO I s S=S+Mi L 3*A( L 3 s T=T+Mi L 3 s NEXT L 

140 NAIT 400 s PRINT STR* T; " ARTICLES" ; S 3 " F " s GOTO 20 


modules mémoire. 


5FA8.SA8 DD 9A 48 Fb 4A FF 55 91 
SFbOïOE bE AF SI 88 Gb 9A FD 21 
SCFGïbE DO 80 b5 Ol AE F9 F2 29 SFbSsCS 48 F9 4A E5 b5 01 43 b8 

SCFSïDD AE F9 F4 bE 5F 5D CD 93 5FCOS43 b5 F4 43 b5 OO 43 b5 82 

5DOOS12 58 FF 5A 50 45 28 45 9A SFCSïFF 43 b5 OO OE bE A8 DD 3F 

5DG8S2A 44 FD 88 CD IO 40 b5 2A 5F DO : FD 8A DF bF Ol 93 20 9A 99 

5D10S55 IO 2A 58 F8 5A CO b5 9b 5FD8: FD 98 FD C8 48 F9 4A E5 bF 

5D18S2Q 6£ FF 8b 03 51 88 03 6C 5FEO:b5 OO 43 43 b5 OC 43 b5 5b 

5D20S48 FF 4A 50 F5 5E C5 99 8F SFESsOO 43 43 OE bE A8 DD FD bO 

5D28SOS b5 20 5l‘ b5 3A 51 b5 AS 5 FFQï 8A DF bF Ol 93 IC FD IA FF 

5D30S20 51 FD OA 45 bF EO 81 62 5FF8: 9A FD IA 9A bE 5F Db 9A CC 

5D38ÎGE 28 05 2A 44 FD 88 CD 90 

5D40ï IC 02 b5 20 51 9E 15 bF 4b 

5D48SOD 51 99 18 6A OO 56 60 D4 

5BSOS56 5C F8 99 06 5E CO 99 2D 

5D58SOÀ 24 62 AE FF 61 FD 88 50 

5D60SË9 FF 62 OO FD 98 bF 51 IC 

5D68S81 14 bl 50 AE FF 62 b5 9F 

SDFOsOl AE FF 6F AE FF 65 b5 ?9 

5DF8S4F AE FF 61 8E 08 b5 OO F5 

SDSOïAE FF 65 AE FF 6F ED FF 5F 

5D88S66 FF 8b 02 8E E6 ED FF AF 

5B9Gï 68 Ol 8b 05 b5 08 bE 5F 30 

5D98 : D8 FD IA A5 FF 61 2A AE 39 

5 B AO: FF F3 bE 5F Ab b5 FF AE 1 1 

5DA8 s FF 66 FD 98 A5 FF 90 DD OO 

SDbOïAE FF 90 b5 OO AF FF 6F PC 

5Bb8s8b OF b5 Ol AF FF 6F 8b 6D 

5DC0S03 bA 5F 04 A5 FF 62 bF F2 

5BC8S49 81 OC b 1 48 AE FF 62 Fb 

SBBGïbS Ol AE FF 6F 8E 08 DF E4 

5BD8Ï2A E9 FF 6F OO 8E 02 6A 20 

5DEOS4F 24 AE FF F3 FD A8 b5 9A 

5DE8 : OD AF FF 90 89 34 ED FF 21 

5BFOS66 FF 8b 04 b5 02 8E OA 90 

5DF8 : b 5 51 ED FF 69 FF 89 02 b2 

-*> SEOOsbS 49 bE 5F bF bE 5F 5D AA 

5E08sb5 OO AE FF 90 AE FF 69 5E 

5E10ïb5 08 bE 5F bF FD 2A FD 23 

5E 1 8 s 1 A ED FF 66 FF 89 23 54 59 

5E20J8E 20 bE 5F 9F ED FF 66 AA 

5E28SFF 8b 02 8E 1F ED FF 69 SC 

5E30S01 8b 05 b5 08 bE 5F bF bO 

5E38ïE9 FF 69 OO FD 2A FD IA 9D 

5E40s 24 54 bE 5F Ab b5 FF AE 40 

5E48SFF 66 9E A2 FD 2A FD IA Ol 

5E50S24 FD DA FD 98 56 bF 4F 92 

5E58î83 15 b5 48 20 FD AS bE CE 

5E60 : 5F D8 FD 2A 54 64 bE 5F Fl 

5E68s FD E9 FF 66 OO 9E C3 54 bE 

5EFOS6A 48 9E OE FD IA A5 FF 5F 

5EF8S73 28 ED FF 68 Ol 8b 04 CD 

5E8Qï b5 08 A2 28 ED FF 65 Ol 2F 

5E8S58b OF b5 Ol AE FF 69 6A 26 

5E9ÜÏ4F 24 FD DA FD 98 56 FD 20 

I 5E9SSA8 A4 26 81 04 8b 46 83 41 
5EA0S50 ED FF 68 01 8b 3F A5 82 

5EA8SFF F3 bF 4F 81 28 60 Fb F2 

5EbO : 24 AO bF 28 81 2C A4 ED EF 

S 5Eb8ïFF 68 Ol 8b OF ED FF 62 4E 

! 5EÇQs FF 8b Ol DF bE 5F D8 FD FA 

I 5EC8S2A FD IA 24 56 DF 99 04 5D 

1 5EDOSAE FF 69 bA 5D 9b ED FF D2 

1 5ED8S62 FF 99 2E 9E 2F b5 4F 2F 

I 5EEOS9E 33 bE 5F bF FD 2A FD 07 

\ 5EE8s IA FD 98 64 bE 5F 7D 9E 83 

1 5EFOS88 ED FF 68 Ol 8b 06 ED Ob 

| 5EF8SFF 62 FF 99 18 Fb 20 bE 72 

I- 5FOO-.5F D8 9E 1F AS 77 65 AE 80 

! 5F08: 7F 68 b5 OD AF 77 90 89 C4 

\ 5F lOs 4F E9 FF 90 GO b5 51 ED D4 

1 5F18ï FF 66 FF 8b 15 ED FF 68 12 

S “Î5F20S01 8b 08 A5 FF F3 b3 06 56 

1 5F28SAE FF F3 b5 51 Al FF F3 79 

| 5F30:SE 08 ED 77 62 FF 8b 02 67 

| 5F38ïb5 49 bE 5F b7 b5 OO AE Ob 

| 5F 40 : FF 66 AE FF 68 bE 5F 5D 45 

| 5F48ïFD IA FD OA b5 FF OF 8b bA 

| 5F5ÜS 03 bA 5D Ol bE DO 80 9 A OF 

I 5F58 s bE 5F 9F 9E 15 b5 FF AE 2D 

I 5F60SF9 E9 48 F9 4A E3 b5 OO C8 

| 5F68I43 b5 CC 43 b5 OO 43 OE Fb 

1 SFFOïbE A8 BD E9 F9 E9 OO b5 6F 

I 5FF8SG4 bE 5F b7 9A 48 Fb 4A 9A 

| 5F 80: FF 5F OE bE A7 81 62 6E 81 

| 5F88s OO 89 0 1 9A FD A8 b5 02 33 

I 5F9QïbE 5F D8 FD 2A 9E IA 48 lb 

5F98SF9 4A E3 b5 OC 43 b5 EF 36 

" 5FAOÏ43 b5 OO 43 b5 FF OE bE 2C 




INVADER LM 

PC-1500+CE 155 ou CE 151 

Ce jeu bien connu sur les ordinateurs domestiques est enfin adapté dans 
une version proche de la réalité sur le PC-1500. Le plus difficile était 
de reconstituer un écran normal sur la ligne du PC-1 500, et pour ce faire, 
l'écran a été découpé en trois parties, alors qu'elles sont superposées 
sur un écran normal, elles ont été mises côte à côte sur l'écran du 
PC-1500. 

Après ces quelques considérations techniques, le jeu est assez connu 
pour ne pas avoir à en faire une description complète. MODE pour aller 
à droite, = pour aller à gauche et DEF pour tirer. 


écran PC-1 5(1)0 


Comme tous les programmes du bulletin PC-1500, vous pouvez l'ac- 
quérir pour 1 5 F ou 1 point + 1 cassette. 

Ce jeu est tiré d'une revue japonaise. 
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INVERSION VIDEO 
TOTALE 


Après le programme inversion vidéo partielle, voici ce que l'on pourrait 
appeler l'inversion vidéo totale, c'est-à-dire que vous allez programmer 
sous basic en inversion. L'effet n'est pas toujours idéal pour la lisibilité. 
Remarquez que pour améliorer la lisibilité des listings, les B sont écris 
en minuscule. Pour l'utiliser : 

Rentrer le programme à une adresse A quelconque et faites CALL A. 
ENTER ENTER. Ce programme ne marche qu'avec les nouvelles ROM, 
voir article sur la dérivation du clavier. 


2900-290F initialisation 
2910-291F inversion vidéo 
2920-2922 attente d'une touche 

2923-293D inversion vidéo, A conserver 

293E-293F retour 

La routine d'inversion est celle du Technical Reference Manual. 

Marc GIRONDOT 
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ENLEVEMENT 

POUR PC-1500 (ou A) + CE- 150+ CE- (155 ou 159 ou 161) 


Ce programme est un jeu de rôle et certainement 
le meilleur (ou un des meilleurs pour ne vexer 
aucun auteur) disponible sur PC-1500. Ce pro- 
gramme a été tiré d'une revue japonaise et est 
traduit de l'anglais (non sans mal). 


Vous pouvez soit taper le programme soit envoyer une cassette au club 
avec 15 F ou 1 point de bonus et ensuite il ne vous reste qu'à taper 
RUN. Comme il est indiqué au début du programme, une personne a 
été enlevée et vous devez l'aider à sortir de la pièce dans laquelle on 
la retient prisonnière. 

Pour cela il faudra lui dire que faire : 

Les fonctions de déplacement principales sont : GAUCHE DROITE 
La fonction permettant de savoir ce que vous possédez est : INVENTAIRE 
De plus, tapez ENTER pour savoir ce que le personnage voit. 

Les autres commandes sont accessibles grâce à des phrases compor- 
tant un verbe en tête, un nom en fin et des articles ou prépositions entre. 


Par exemple : 

REGARDE LA TABLE. ASSIEDS-TOI SUR LA CHAISE, etc. (Je ne vais 
tout de même pas vous donner la solution I) 

Il faudra être très rusé, penser qu'un PC-1 500 et une chaîne HI-FI peu- 
vent se lier ou bien que quelque chose peut se cacher derrière une armoire 
ou un tableau. Mais à vous de découvrir le vocabulaire pour y arriver. 
Il est inutile d'appeler le club ou bien d'écrire, nous ne vous donnerons 
pas la solution... 

BONNE CHANCE... 


i GOTO "A" 

5 IF L--2G0SUE 80 

6 GOSUE 42 ! EEEP 1 - 60- 9: A*i 1 )=" " : INPUT "Que fats- Je* "? 1 JsBEEP 2 , 

99.- 9: GDSIJE 10s GOTO 5 

-7 PR INT Si$K M js GOSUE 41 s GOTO 6 

10 Z=~ 1 s FUIR I=ÜTD 18: IF LEFT$ ( A$ < 1 ), 3 )=M I Et- { A$KO ). 1+3+1 .3 )LET Z=I 
- 1-18 

12 NEXT IïV*=""!FDR I=L.EN 1 ÎTO 1STEP -lsX$=MID$ <A$C1 ),I,1 )* IF X 
*<>" "LET Y*=X*+Y* : GOTO 16 
14 IF Y$LET 1=1 

16 HE Y T I : H=Ü : FDR 1 = 1 TO 16: IF Y$=Si$( I )LET N=I 
18 N EX T I. s IF Z=10IF H=16LET N=15 
20 IF Z=3ANB Y$=3$( M )THEN 50 
22 IF Z=4IF N IF SK N )=ni_.ET SK H )=6: GDTD 40 

24 IF Z=5IF H I F SK H )=6LET SKN)=0:GDTO 40 

25 IF Z-13IF B=6IF OPRI NT "PAS ICI": GOTO 41 

26 IF Z=6IF N=2 I F E=6THEN 170 

27 IF Z=17IF N=1IF A=6IF L=1THEN 70 

28 W==6 : IF ZGDTD t □+ 1 )* 1 00 
30 X=Q, Y=0-Z=0:FOR 1=1 TO 5 

32 IF SK I >=WCDLOR 0 : GLCURSOR ( X - Y ) : P= I * 1 0- 1 0 : GOSUE 8 1 0 : Z= ( Z+ 1 )AND 1 
- X=35-+Z ? Y=Y+20+K Z=0 ) 

34 NEXT I : IF XDR YTHEH 860 
36 RETURN 
38 Z=50 s GOSUE 28 

40 PRIHT "O.K" 

41 CALL &E24A s RETURN 

42 IF QGLCURSOR (0,-70) 

43 RETURN 

46 □=< 0+1 )AND 3 s GOTO 38 
48 □=( 0— 1 )AND 3: GOTO 38 
50 F-0+10+50: IF 0=3 IF HLET F-P+H+2+4 






Extrait d'un manuel de pro« 
grammes japonais, ce jeu ara* 
phique 100% en BASIC, vous 
entraînera a bord d'un sous> 
marin en 1941. 


Pour poursuivre, vous devez torpiller le croiseur 
qui navigue au dessus de vous, et ceci, avant 
qu'il ne vous touche. 

Pour débuter, tapez RUN ENTER ou DEF A. 
Appuyer sur ENTER pour dérouler les afficha- 
ges successifs jusqu'à ce que le jeu proprement 
dit commence. 

Vous déplacerez le sous-marin à gauche avec 
1 et à droite avec 3. La touche Z vous permet 
de torpiller, tandis que Q vous protège des fou- 
dres de I ennemi. Evidemment le croiseur lar- 
gue des bombes et bouge sans cesse. 
Prudence et bonne chasse ! 

J. F. 


27: !F ABS (F-ZX15 AND 
RNB 3=3 POKE ¥,1.-11» 
37-35» 1 : IF INKEY$ 

28: GOTO 30 

BEER 3: CALl &11E0: 
rUrsti c ? 33 ? b T ? 99 ? 83 ? 3 
3; Q=&F854ï ON E 
ü G U B O 1 ? b 2 » 1 r 7“ — i-i 

THEN 72 

38 » Z=Z+ ( ( RNB 4 > -2 ) * 5 ; 
IF Z>55 LET Z =5 

ZI » TC "7 S £? ■■ r~T -trrer 

-* -•i! cL\ J ! 4 = 55 

32 : POKE Y » @ » 8 » 0 , 0 , 0 ; ’■{=? 
+IF808: POKE ¥, 1 , 3,3 
» 3 » I 

34: GOTO 16 

36: POKE C» 64» 64» 104, 64» 
64: POKE C»64>64»180 
»64»64: POKE C»64»64 
» 98» 64» 64 


38:T=T-l: if T<0 GOSiJB 
42: GOTO 72 
40: RETURN 

42:BEEP 1: BEEP 0: BEER 
1: BEEP 1: BEEP 8: 
BEEP l; RETURN 


BOXING 


Attention ! Ce jeu est très violent pour vos cris- 
taux liquides. Il est tiré d’un manuel japonais 
et vous convie à assister au combat du siècle. 
Combat entre vous à droite de l'écran, et le 
tenant du titre surnommé « Pixels d'Acier » à 
votre gauche. 

Le jeu démarre par RUN ENTER, puis vous choi- 
sissez le niveau PROfessionnel ou AMAteur, et 
vous voilà sur le ring. 

Le déplacement de l'arbitre de part et d'autre 
de I écran indique le côté où se trouve 
l'avantage. 

Les touches pour bouger, esquiver, frapper 
sont : 1 2 3 . . 

Vous découvrirez vous-même qui fait quoi, celà 
fait parti du jeu. Ne vous faites pas trop mal ! 

î ’ ClzhR. » RhnBQP 
2^AIT 1005 PRIHT 
IN5 V 

3“ I N PUT v N I V £ AU < PRO= i / 

Hi‘iR=2 ? ) y ?Tï JF T<1 
OR T >2 GOTO 3 

4ï H=1 

•j 5 Ui fi i T 8 “ P P. J Kj 7 ,f » 

8îB=30ïC=38 
10ï CALL 4576 
205 IF BKC POKE SF895?9? 

0 ? 0 ? 0 ? 8 5 P 0 K £ v F 81F? 

14? 184? 31? 184? 14 

B/î.- P U r ; . c & h H y 5 ? 14 
? -04? 31? 104, 14; POKE 
o x c ? 8 ? y ? 0 ? 0 ? @ 

* ir HOKE &F885? 14 
? 1-04? 31? 104, 14; p f j££ 

SF3 1 E ? i 4 ? 1 04 ? 3 1 ? 1 04^ 

■: 14 : ■ . " " 

255 POKE KF30F?96'?28?43? 

75 ’§ 2 POKE &F81 4? 3? 7 
5? 4i ? 23? 96 

Pr.JÛ 

3251F T=1 IF V=4 OR V=5 
y U b* U B 388 

335 JF V=4 GOSUB 388 
4 » u v -j ü b U B b 8 0 ? 4 H j-î , Z 
88 * ’ " “ ' “ 

4 ® ! Z* ASC INKEYs 
42 : if 2=49 GOSUB 928 
45; IF 2=46 GOSUB 500 

F £î ! TP ~7 = H Q n r- ! ; r. 


53: IF 2=5 i GOSUB STB 
— 60: V= R H B 5 

80: IF T=i JF y =4 gj? y =5 
GOSUB 809 

85: IF V=4 GOSUB 800 
90: ON ¥ GOSUB 600,400,3 
00 

100: GOTO 28 

200: POKE &F814, 8, 0, 0, 0 , g 
? 1 b ? 96? 64? 112? 64 
202: FOR Y=l TO 150: NEXT 

284: POKE &F885, 0 , 0. g, g, g 

• » 24» 104,31, 104,7,7 , 1 
04? 31 ? 107? 8 

205: FOR V=1 70*50: HEX7 

y 

210: BEEP 1 : A=A-1 : *IAIT 1 
00: PR INT v *** 7HE EN 
B’"*** s WAI7 : PRIHT 
'■'VOUS AVEZ MARQUE M ï 

Aï* PTS*: END 

380: POKE Si-813, 7: RETüRN 
400: POKE 8F811, 51, 83,16 
415: IP 2049 LET C=C-1.5 
420: IF C<1 GOTO 200 " 

430 5 RETURH 

508.-POKE SF313, 16, 16,83, 

51 

515: IF V<>3 LET B=B- 1.5 
520: IF B < 1 GOTO 990 
530: RETURN 

600: POKE âF80F, 182,22,44 
» 80, 16: RETüRN 
300: POKE &F81 1 ,43,71,2,1 

815; IF Z< >51 LET 0=0-2 
820: IF C <1 GOTO 200 
830: RETURN 

900: POKE SF8!3,9,2,7! 

903: IF VOl LET B=B-2 
905: IF B < 1 GOTO 990 
907: RETURN 
920: POKE âF814,15: 

RETüRN 

970: POKE SF814, 16,80,44, 
22,102: RETURN 
990: POKE &F80A»64, 112,64 
>96, 16,0,0,0,0,0 
995: FOR Y =1 TO 150; NEXT 
Y: POKE IF81E, 0 , 0 , 0 , 
0>0: POKE IF814, 8, 18 
7,31, 184,7,7, 104,31, 
104,24 

996: FOR Y=i TO 50: NEXT 

997: BEEP 3: NAIT 99: 

PR INT *L£ ROUNB *IA5 
v tST A VOUS ! v 
998: A=A+1 

999: BEEP 1 ; PRINT v RONND 

* J A : GOTO 5 


SCRAMBLE 

REVU 


| Le J’ eu intergalactique présenté dans le numéro 
j 1 1 est superbe et décourageant à la fois. A la 
j moindre faute, « revenez à la case Départ, ne 
I passez pas par le score ». Après des nuits de 
i combats infernaux et meurtriers, j'ai préféré 
| transformer la partie BASIC de Scramble (voir 
j c '- d essous) ; ainsi les erreurs sont permises, 

| mais elles conduisent directement à l'étape sui- 
j 'rante. Le score total ainsi que le « high score » 
j s affichent (utiliser ENTER) en fin de partie, 
j Patrice BRASSEL 



ERRATA 

REDEFINITION 
DE CARACTERES 


TABLE DES CARACTERES 


Dur, dur de redéfinir les caractères du PC 1 251 
sans le programme et la table des dits carac- 
tères. Nous réparons derechef cette omission. 


DüWP RSDEF CAR6CT 

3F00 103F 5202 2652 10SF 
3F08 1C02 5-52 8602 FFDB 
3F 10 5002 ?7DB 103F IC57 
BF18 4252 J0C7 0088 5563 
BF20 0038 4463 103B 1203 
BF28 4402 6371 1063 103A 
BF30 0F02 B37l 2063 8A3A 
BF38 0771 1003 BF02 FF84 
3F40 DBDA S8DB 88DB 0300 
BF48 0005 8414 4129 0400 
3FS0 0524 2641 2904 8663 
BF58 3B28 8A02 7CDB 10BF 
BF60 5202 2752 2051 F1E0 
BF68 0202 03FF 6B08 2809 
BF70 4EFF C329 0843 2900 
BF78 10C7 6056 007F 1F37 


C000 7F63 4963 7F?F 5B41 
C008 5F7F 7F43 5558 7F7F 
C010 5055 417F 7F67 6341 
C018 7F7F 5155 457F 7F4J 
C020 5547 7F7F 4075 797F 
C028 7p49 5549 7F7F 51S5 
C030 617F 0060 6000 807F 
C038 7F49 4949 7F7F 7F7F 
C040 7F08 0408 1008 4040 
C048 4040 4000 0000 0000 
C050 0000 0000 0020 5454 
C058 5478 7F44 4444 3838 
C860 4444 4444 3844 4444 
C068 7F38 5454 5458 0404 
C070 7E05 050E 5151 513F 
C078 7F04 0404 7800 4470 
C080 4000 0020 4044 3009 
C088 7F 10 2844 0041 7F40 
C090 007C 047C 0478 7C04 
C098 0404 7830 4444 4430 
C0A0 7F 11 mi 0E0E 1111 
C0A8 117F 7C08 0404 0848 
C0B0 5454 5424 843F 4444 
C0B8 403C 4040 407C 0C30 

cece 403e 0C3C 4020 403c 

C8C8 4428 1028 4444 2810 
C0D0 0804 4464 S44C 4400 


50» ’*• CAtL 63 r 79» HAIT 
0» FOKE 43*69# 2* FOR 
ï»39 TO 96» PRInT 
CHR* I» CAL'. t3F00J 
N£XT £ 

51* END 





HYPE 
OLYMPI 


Echauffez-vous bien les doigts 
avant d'aborder ces trois épreu- 
ves athlétiques, que vous ver- 
rez se dérouler sur l'écran gra- 
phique de votre PC- 1260/61. 


Les 3 épreuves sont : 

- 100 mètres 

- saut en longueur 

- lancer du javelot. 

I e épreuve : 100 mètres 
Il faut parcourir les 100 mètres en un temps 
maximum spécifié. Pour avancer, appuyez sur 
n'importe quelle touche exceptée DEF, SHIFT, 
CL, ENTER, et les flèches de curseur. 

Plus vous appuyerez rapidement, plus l'athlète 
ira vite. 

Et l'épreuve commence quand l'athlète appa- 
raît sur l'écran. 

2 e épreuve : saut en longueur 

Après avoir parcouru une certaine distance, 
évaluez votre angle de saut en appuyant sur 
la touche « - ». La longueur minimum est elle 
aussi imposée. 



3 e épreuve : lancer du javelot 

Le processus est le même qu'à l'épreuve n e 2. 
Vous avez 3 essais pour les deux dernières 
épreuves et 1 seul pour l'épreuve de vitesse. 
A chaque fois que vous réussissez les trois 
épreuves, vous êtes qualifiés automatiquement 
pour le tour suivant. 

Vous pouvez si le cœur vous en dit modifier 
(pour corser) le temps ou les distances des 
épreuves en ligne 22. 

S. KNECHT & J.-A. BERRO 



m «:.o 











FONCTIONS 

GRAPHIQUES 


Comme chacun le sait à présent, l'écran des 
PC-1 260/61 est géré de façon graphique. 
Autrement dit, chaque caractère peut être refé- 
fini pixel par pixel. Néanmoins, pour faire de 
l'écran LCD un véritable écran graphique, il fau- 
drait pouvoir adresser chaque pixel individuel- 
lement, en le désignant par ses coordonnées 
cartésiennes x et y. 

L'utilitaire que nous vous présentons ici est 
destiné à combler cette lacune. Il permet de 
recréer les fonctions SET et RESET de la plu- 
part des basics. 

L'écran est en fait constitué d'une grille de 1 20 
par 1 4 points adressables individuellement. La 
sous-routine en langage machine présentée ci- 
contre occupe les adresses &5800 à &589E, 
mais peut être recopiée en n'importe quel autre 
endroit de la mémoire (en particulier pour les 
PC-1 260). 

Mode d'emploi : 

Mettre la valeur de x (0 à 1 1 9) en &6600. 
Mettre la valeur de y (0 à 13) en &6601. 
Pour faire SET (x, y) : CALL &586E 
Pour faire RESET (x, y) : CALL &5882 
Pour allumer l'écran : CALL &5899 (cette rou- 


5870:0002 

8288 

D 85 A 

C 329 

5878:838 4 

2 A 57 

1283 

47 DA 

5888:5237 

7858 

88 C 2 

82 P F 

5888:2120 

82 D 8 

5 A C 3 

2984 

5898 : 84 DA 

c: 7 i 9 

Tl 34 A 

DA 52 

5898: 3712 

5 F 6 1 

81 DF 

3788 

: 0. 

S : PAUSE 

>: 

GRAPHE 

i.>' Z. 

un ut: 

ü N * 


" : GOTO 586 
1 5 : 00=2:6688 : SEÏ=&586E 
2 8 : I N P u T v N b p o i r» t s a c 
a ! eu ! er ? : N 

2 5 ■ i r f > \ L ij R N } 1 Z y y ij T ij 

28 

3 8 : 1 N P y T v s; f*i | n •; } -.*f y rn ? v ? X 
48:1 N P U T X T a z .1 rn y rn ? v 5 X 

5 8 : E = ( X 2 ~ X 1 ) / H * X = X 1 : 

G 0 S U B 9 8 8 : V 1 = V : V 2 = V 

6 8 : 14 h I T 8 : P R I N T v U n I n 

s t a n t ! F 0 R I = 8 

7 0 : X = X 1 + 1. * 1 î G U S U B 9 8 8 

8 8 s I r Y y Y 2 L E T Y 2 = Y 
98:1F Y < Y 1 LE T Yl=Y 

1 0i 8 : n.E X T I : B E E P 1 
1 18 : CLS 

128 S PRINT M Y 1 Y 1 i fi « fïfUfYi= v « Y - 
ls h I T : OU Rb OR 24 
1 38 : PR I NT v Y mai i mum= v î Y 

2^0: C:i_3 

1 58 : 1 N D ÜT Y m I n i mum? ? Y 
1 b y : i nk U i v Y m a 1 : m u m ? M ? Y 




CYCLISTES ! Branchez votre 
PC- 140! sur votre dynamo, 
vous pédalerez utile et sans 
effort. 

Destiné aux cyclotouristes, ce programme per- 
met différents calculs utiles sur la route. 
Entrée : DEF M (Menu) 

Sortie : DEF F (FIN) 

Il est utilisable avec ou sans imprimante ; l'im- 
pression étant automatique si besoin est. 

La présence d'un menu et la simplicité d'utili- 
sation du programme limite le mode d'emploi 
à la description de DEF V. 

Développement vélo : 

Ce sous-programme calcule les développe- 
ments en M pour 2 systèmes : 

1 ) dérailleur jusqu'à 3 plateaux et 7 pignons. 
2) moyeu à 3 vitesses STURMEY-ARCHER 
(également SACHS ou SHIMANO). 

Alors à vos bécanes et bon voyage ! 

F. RUBATTEL 


tine a l'avantage de ne pas provoquer d'attente, 
contrairement à CALL &1 1E0). Si l'adresse du 
pixel à afficher ou éteindre est incorrecte, pas 
de problème : la sous-routine repasse simple- 
ment la main au Basic, sans rien afficher. 

A titre de démonstration, vous pouvez entrer 
le programme de graphe de fonction. Celle-ci 
doit être introduite en ligne 900. Essayez par 
exemple la fonction Y = SIN X, sur quatre ou 
cinq périodes. 

P. LAURENT 


5 8 8 8 : 

1866 

8857 

b 7 y y 

3 A 68 

5888 î 

67 7 8 

2 A 5 B 

673 C 

3 A 1 D 

58 1 8 

3 4 y 3 

88 l 2 

0 7 0 2 

27 DB 

5818 : 

5182 

C 3 D 3 

5314 

3412 

5828 : 

8582 

28 D 3 

5102 

83 DB 

5828 : 

5 B 14 

2 C 1 B 

3403 

8812 

5838 : 

8782 

1 FDB 

5102 

F^DB 

5838 : 

5 B 14 

3412 

0502 

28 DB 

5848 : 

518*2 

3 FDB 

53 14 

1866 

5848 : 

8157 

4267 

0 1 3 A 

1867 

5858 : 

8 F 2 A 

1467 

083h 

8 A 75 

5858 : 

8781 

8113 

0612 

848 A 


1 7 8 : F = 1 3 z ( Y 2 - Y 1 ) 

188: CLS •: CALL 0:5899 
1 98 : FGR 1=8 TO N-l 
2 8 8 : X = X 1 + E * I : G 0 S U B 9 8 8 
218: Y=( Y-Yl )*F+. 5 
228: GOSUB M SET M 
238: NEXT J: BEER 1 
2*8: CALL 8 1 1 E 8 : GOTO 28 
258: V SET V : IF Y<8 OR Y >2 
55 OR K 3 OR I >255 
REÏURN 

2 6 8 : P 0 K E C 0 ? I ? Y : CAL L S E 
T: REÏüRN 

5 8 8 : 1 F P E E K 0 5 8 8 8 •( ) & 1 8 
OR PEEK 0589E<>0:37 
BEER 2: LAIT : FRInT 
v S R SET N 0 H C H A R G E E 
v : END 
5 1 8 : G 0 T G 1 5 
988: Y=! r (X> 

999: RETU RN 


1 : y CYCLOTOURISME 
2 : v T I TRES CYCLO 
3 : V DATE: 16 . 83.85 
4 : y (C) F.RUBATtEL 
5: y 0 LE CLUB 


10 : ‘'H 


î 20 : PR INT 

= PRINT 

1 30 : PR INT 

* *WENU CYCLO 



i 40 : PRINT 

'•'DEV.VELO: 

— V 


1 45 : PRINT 

v MOYENNE s 

-A 


| 50 : PRINT 

1 _ !“' 

I "v. ■■J; ,vv. 

* CALCUL TEMPS: 

j 55 : PRINT 

'•‘CALC. DISTANCE 

:-D 


| 60 : PRINT 

"CALCUL PENTE: 

— H 


j 65 : PRINT 

"CALC. ECHELLE: 

1 70 : PRINT 

"DIFF.- ALTITUDE 

: -G 





MASTER 


Cet utilitaire permet de gérer de 
petites fiches de 16 caractères 
au plus, avec un maximum de 
145 fiches eu écrans. 


Voici les différentes commandes utilisables : 
Initialisation 

RUN Initialisation (attention tout est 
effacé dans ce cas). Le PC vous 

I demande le nombre d'écrans que 

vous désirez utiliser jusqu'à 145 : 
on a donc 2 320 caractères au 
maximum. 

DEF A Ecriture. Le PC vous demande votre 
ligne de départ ; si vous débutez le 
fichier tapez 1, sinon tapez le nom- 
bre d'écrans utilisés (l'ordinateur 
vous donne ce nombre à la sortie de 
ce mode) lors de la dernière utilisa- 
tion. Pour sortir tapez F ENTER. 
Pour connaître le nombre d'écrans 
qu'il vous reste, tapez R. On ne peut 
rentrer plus de 16 caractères. 

DEF L Lecture. Après avoir introduit la 
ligne de départ en lecture, les écrans 
sont affichés dans l'ordre d'entrée. 
Pour sortir BRK. 

DEF C Correction. Un point d'interrogation 
vous invite à reécrire une fiche dont 
le numéro a été précisé dans un pre- 
mier temps, et le contenu affiché 
dans un second temps. 

DEF X Recherche d'une fiche suivant une 
chaîne de caractères se trouvant au 
début de la ligne. 

DEF F Recherche d'un groupe de caractè- 
res dans tous les écrans, la scruta- 
tion est totale et donc lente, car on 
ne scrute plus uniquement le début 
de message. 

DEF K * Sauvegarde : 

Il faut préparer la cassette et quand 
le message « PRESSEZ UNE TOU. » 
apparaît, enclenchez le magnéto 
puis taper ENTER. A la fin de la sau- 
vegarde, arrêtez le magnéto et 


notez bien la place occupée par le 
fichier et sa nature. 

* Chargement : 

Idem que pour la sauvegarde, sauf 
en ce qui concerne les touches du 
magnéto. 

Vous savez maintenant utiliser ce 
programme qui pourra servir de bloc 
notes, d'agenda, de répertoire télé- 
phonique, etc. 

A. Ozanne. 
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Vow devez détruire un vois- 

“w spoliai à l'aide de votre 
viseur. re 


Ce vaisseau est matérialisé sous la forme d'un 

pew point noir qui se ballade sur la ToL de 
a f.cheur. Le but est d'amener ce p 

votre viseur apparu au début du jeu et oui se 

ÏÏ^p**'***.™^ 

Pour ce faire, vous devez utiliser les touches : 




4 


'l oubliez pas, votre temps est compté I 

A. OZANNE 




'* *' O ï} 4 4 


2k}\âi • ^ ■ TC 

anii 

•' O d 4 rt4 } £ N - TJ v .... _ ,, 

A H B y = =; r . : ~ y ; y ~ 

_ ~ '' v: b d 4 

• ° - y 6 0 ? 6 0 h :Cüï, 

GOTO 500 ~ 

5 s P 0 k' h :•?. 4. ;7i /[ £ , 

'^i i:p CKE ê 60 4 F, 0 , 

f ïtsjtfrGnrn 

500:1F r>=200' S£PP 7 . 

nrIT ;pRi n T •>c:rô 0: . v 
fSîENB 

502: BEEP üCALL SM? 
O05sx*86044+RNB 29: Z=X+i 

•î T ? - - Z ^ h * 6 y 4 P ? 0 ? 0 , 


PROGRAMME POUR PC-1350 
+ AU MOINS 
UNE CARTE 8 Ko EN BASIC 

Vous disposez de cinq flèches et 
vous devez donc essayer de les 
mettre le plus près possible du 
centre de la cible pour tenter de 
faire un score honorable. 

Pour lancer le jeu tapez RUN. Vous aurez le pri- 
vilège de voir la présentation, et pour l'arrêter, 
tapez sur une touche du clavier pouvant être 
saisie par INKEY $, par exemple une lettre. 
Vous choisirez alors la vitesse du vent en 
appuyant sur une touche qui arrêtera le comp- 
teur aléatoire. 

La première cible s'élance, il faudra appuyer sur 
une touche pour lâcher la flèche, et ne la relâ- 
cher que quand l'angle choisi sera affiché. La 
cible telle que vous la voyez de face est dessi- 
née avec les points d'impact des flèches sur 
le coin supérieur gauche de l'écran. 

Visez juste ! 

Marc GIRONDOT 
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donnée, ainsi que le dump sur écran ou impri- 
mante de 8 octets avec contrôle par checksum. 

Pour entrer OLPHOUS il faut prendre l'option 
2 (l'option 1 permettant un contrôle rapide de 
la bonne saisie des codes grâce au code placé 
derrière les Puis taper l'adresse &6030. 
Maintenant, tapez les caractères de chaque 
ligne du pgm 3 (16 par lignes) non compris 
l'adresse (4 caract avant l'espace) et le check- 
sum (2 car, après le :). En effet une ligne de 
Dump est constituée d'une adresse, un espace 
puis huit octets accolés et « : » suivi d'un code 
de checksum. 

L'affichage permet de vérifier à tout instant les 
codes saisis. Lorsque les codes sont entrés 
jusqu'au dernier Attention, sauvegarder le pgm 
par : 

CSAVEM « OLPHOUS » ; &6033, &6C2F (on 
le regardera par CLOADM « OLPHOUS »). 
Encore une chose à propos du pgm 2 (il peut 
servir d'utilitaire pour toute saisie LM) en option 

1 on arrête le déroulement du dump par S, on 
reprend par C, et on sort par E. 

En option 2 on sort (retour au menu) par S lors 
de la frappe du deuxième quartet d'un octet. 
• Le jeu 

Il s'éxecute par CALL &6502 ENTER (on peut 
programmer cette séquence en mode RSV sur 
la touche A par exemple). 

Si le High Score pose des problèmes, on l'ini- 
tialise par : POKE &6FF6, ,0,0, 0,0 ENTER 
N'oubliez pas de faire par précaution un NEM 
« C » si vous gardez la carte, ou alors n'utili- 
sez ni pgms ni variables. 

Après la page de présentation, le jeu débute 
en appuyant sur S. Les touches de curseur sont 

2 4 6 8 pour déplacer l'avion. 

ENTER permet de tirer dans la fenêtre placée 
à l'avant de l'avion. Le but est bien sur de faire 
le plus grand score en parcourant le plus de 
chemin possible et en détruisant un « max » 
d'objets spatiaux. Vous avez un nombre limité 
de vies (LEFT) et il y a semble-t-il plusieurs tours 
(ROUND) bien que ma légendaire nullité ne 
m'ait pas permis de le vérifier. Pour relancer 
le pgm après avoir épuisé toutes ses vies répon- 
dre Y à la question TRY AGAIN (Y or N) 

Si vous tapez N, ERROR 1 s'affiche et on 
reprend la main avec CLS. 

Un article complémentaire sera ultérieurement 
consacré à ce programme notamment pour les 
PC 1 350 sans carte, ensuite pour donner des 
renseignements systèmes à son sujet. 
Amusez-vous bien et à très bientôt. 

J. F. 




Programme 


188: NAIT 0: ClEAR : CLS 

100: ■A’’ NAIT 0: CLEAR : 

118: PR INT "Adresse ?" 

L- L. 0 

120! INPUT A: fri ht *Now 

1 10: A=.82380: IF PEEK (A+ 

store. , , " : L=A: GOTO 

170)0186 GOSUB M HEX 

148 


130: GOTO 110 

i z y : r‘ K x n : 1 / j u iï» p Pî e m o i r 

140: READ 2: IF B=-l 


THEN "END" 

1 3 y : K H I N T ■ 2 > Ed 1 1 e u r M e >ïi 

158: POKE A?B:A=A+l: 

o i r e 

GOTO 148 

135: PR INT "" 

290: ''END" BEEP 3: CLS 

1 48: PR INT " 

218: PR INT " Pr c-? r auiifie : 

C h 0 ! X 

? : N = L : b U b d B " H E X " 

150: C$= INr<EY$ : IF C*= v 

228: PR INT " - " ? : !4=A-1 : 

" THEN 158 

GOSUB "HEX* : PR INT 

1 b y : D = v A L C $ : IF D < 1 

238 s PR I NT • Cdfïfp 1 et ! " 

û R D > 2 THEN 15 3 

248: END 

i f y * u N j b d T u " jj ü pi h " ? " h D 

388: "HEX" FOR 1=3 TO 8 

~ i“ v 

STEP ”1 

130: END 

3 1 3 : Z= INT ( W / < 1 6 I ) ) 

1880: v DUMP " CLS : NAIT 

AND IF: 1F Z >9 LET Z 

y : ~ / 1 n i " D u iïi p T ’e iï! 

— "7 • ”7 

; JJ « 



320: PR INT CHR$ (838+Z)? 


338: NEXT I: RETURN 

l y i y : i n h u T v r d r e s se ? " * 

1880: DATA £82? £38? 8:83 ? 8 

B: POKE 86CD8? B- 

6 C ? « E 2 ? & B 5 ? S: 1 0 ? 8 6 C 

INT • (B/256) *256? 

1 8 1 y : D A T A 8 B b ? & 3 2 ? & 8 8 ? 8 


0 1 ? 8 1 3 ? 8 6 4 ? 8 F 3 » 8 1 8 

1838 

1 y 2 y : u A T r & h u ? & B y ? & y 2 ? & 

1028: GOTO -R- 

88 ? 88 1 ? 8 1 9 ? 864 ? 8 F 8 

1830: CAlL A 

1 838 : DATA &D A ? K h 8 ? & 1 3 ? 8 

1 y 4 y : H K i H T Z $ ? Y $ ? :,! !! ? X $ 

y 2 ? & y y !» & y 1 ? & y y ? 8 D a 

? 14 $ ? v $5 U $ ? T $ ? S * ? R $ 

1848: DATA 888? 887? 8A2? 8 

? y $ ? v : ■' ? h $ 

1* 0 ? & R Z ? & 8 2 !» 8 y f 5 & Z 4 

1 8 5 0 : 1 F D = 8 G G T 0 1 8 7 8 

1058: DATA 882? 838? 8BB? 8 

1 y 6 y * L. K i Ti ! Z$? Y$? ' 

44? 8DB ? 858? 8:2F? 885 

$ ? ïrï $ 5 V $ ? ! j $ î T $ ? 3 $ ? R 

1868: DATA 8DB? 832? 88 A? 8 

$) Q$ ? l !,! : P $ 

34 ? 882 ? 8F5 ? 826 ? 882 

1878:01= INKEYI : IF C$ 

1878: DATA 881 ? 834? 8AA? 8 

<>"S" GOTO 1100 

y 8 ? 8 8 B ? 8 1 D ? 8 9 r ? 8 5 9 

1888: IF INKEY* <>"C" 

1880: DATA 864? 88F? 865? 8 

THEN 1888 

38? 867 ? 83A? 83A? 883 

1890: C$=" " 

l y 9 y : D A T R i-. ? 4 ? 8 y f ? 8 26 ? 8 

1108: IF C$="E" GOTO 180 

2 F ? 8 1 2 ? 8 8 2 ? 8 8 8 ? 8 2 6 

0 

1 i y 8 : D A i A 8 2 6 ? 8 2 6 ? 8 2 6 ? 8 

1 1 18: GOTO 1838 

2b ? 82F ? 82 1 ? 8 1 8 ? 8bC 

2888: "EBI‘ r " CLS : NAIT 

1 1 1 y : DATA 8Dy ? 884 ? 888 ? 8 

8: PR INT " Editeur 

81? 818? 882? 888? 883 

rTsiïiü i r e ! " 

11 28: DATA 888? 884? 814? 8 

2 8 1 8 : 1 N P ü t " A a r e s s e ? " ? 

1 0 ? 8 6 C ? 8 D 8 ? 8 3 4 ? 8 8 8 

p ; t; s >! — 1 ; C; * v -- — fi 

1138: DATA 881 ? 819? 837? - 

2920 : CURSOF: 0 : B=B+ 1 : K=K 

■'■■■■ i " 

+ 1: POKE I6CD0 ? B- 


INT (B/256)*256? 
INT (B/256) 

2038: CALL A: PR INT Z$? Y 
$ ? •' ’■’ ? /$ ? N$? ? ü$?. 

T$ 5 b$.? R$ j y .$ ? ? P$ 


Z 


2840: E=Bî GOSUB w & M : 

POKE &6F18? PEE K B 
5 CALL H+&78 5 b$=b$ 
4. 4. y $ * PR I NJ G s + 

28585 H$= I HKEY$ 5 IF H$ 
= v T H EN 2858 
28685 IF H$< V 8 V OR H$> V F 
v T HE H 2858 

28785 IF H$< y A' 1 AND H$> v 
9 V 7HEN 2138 
28885 CURSQR 315 PR INT ’’ 



OlPHÜüS 
( c ) I/Q 


6'8 3 6 8 8 8 8 8 8 3 8 8 8 4 3 8 1 - 3 8 

6 8 3 8 8 8 F F 6 6 8 8 8 8 E 8 8 B 8 E 


HO 
H H 


6 1 B 8 
6 1 E 8 
6 1 E8 
6 1 F 8 
61F 8 
6288 
6288 
6218 
6218 
6228 
6228 
6238 
6238 


2898:M= ÏNKEY* : IF 1$ 

6848 

B 8 8 B E 8 B 8 8 E B B 5 5 8 8 

A3 

6248 

= T H EN 2898 

6848 

B E E B 8 8 8 8 6 6 F 8 8 8 B E 

FF 

6248 

2895! IF I$=*S V GOTO V A 

6858 

B E 8 8 8 8 8 8 8 8 8 8 8 6 6 8 

4E 

6258 

2180: IF ï$< V 8 V OR I $ > ‘ F 

6858 

8 8 C 8 8 8 C 8 8 8 C 8 8 8 C 8 

18 

6258 

• T HEN 2898 

6868 

8 8 C 8 8 8 C 8 8 8 C 9 3 3 C 8 

33 

6 2 6 y 

2110: IF 1 $< H AND If>’ J 

•by*bb 

3 3 C 8 8 8 C 8 9 8 C 8 A A C 8 

B 3 

6268 

Q ; -‘ JH F N / 1 3 8 

6878 

A A C 8 8 8 C 8 8 8 C 8 3 9 C 8 

E3 

6/7 y 

212 y « J = ( h b b H$-4H-7 h (. H 

b y i' b 

9 3 C 8 9 8 C 8 8 8 E E 8 8 8 C 

8 B 

6278 

$>='■' A > >*16: J=J+< 

6888 

8 6 6 C 6 4 8 C 8 6 B B 8 8 C 8 

;“i <r 
•J -J 

6288 

ASC I$-48-7*< I$>=‘ 

b y b b 

y y u y y y 7 7 7 7 7 7 7 7 8 9 

A5 

6288 

A" )): POKE B? J 

6898 

8 8 9 8 8 0 8 8 8 9 8 8 9 8 3 8 

59 

6298 

2138:1F K =8 PRINT V: 

b y y b 

8 8 43933 8 8 9 8 8 8 8 8 8 

76 

6298 

H Ij j\ 'z, b L- JJ y ? u “ 1 1 

68A8 

8 8 8 6 8 8 3 B B B B B B 6 8 8 

6 B 

62A8 

< B/256 >*256 j INT < 

68A8 

3 8 8 8 8 8 8 8 8 8 6363 8 8 

F 6 

62A8 

B/ 256) 

68B8 

8 8 5 8 8 8 4 5 8 5 5 8 8 8 8 8 

EA 

62B8 

2140: IF K.=b UALL h: 

6 8 B 8 

8 8 8 8 8 8 8 378 8 8 8 8 3 8 

2 B 

62B8 

P R 1 N T Z $ ? Y * ? ’’ '■ 5 Y $ 

60C8 

8 68 8 8 8 8 8 8 38 8 8 8 Et 2 

83 

6 Z u y 

S14$5V$5U$5T$5S$5R$ 

60C8 

3 8 8 2 8 82266223322 

T i 

62C3 

ï y $ ? ï * h '•£ : K = y 

68B8 

F C223B22C222C222 


6238 

2158: GOTO 2828 

6 8 B 8 

C 2 2 2 C 2 2 2 C 2 2 2 C 2 2 2 

98 

62B8 

4 y y y : b E l I N h y T l h k 1 N 

60E8 

B222222222222222 

C8 

62E8 

T ? V 5C$: IF C$= v Y 

68E8 

2 2 2 2 2 2 y 8 y y 3 y y y 4 b 

BC 

b 2 E 8 

ü K ü $ = v ü v L c T B = 

68F8 

8 5 8 8 8 8 8 8 9 8 8 8 6 8 8 8 

E5 

62F8 

1: RETURN 

6 8F 8 

9 6 6 8 8 8 8 6 8 Et 8 8 B 8 8 3 

1F 

6 2F 3 

4 8 1 8 : B = 8 : R E T U R N 

6 1 88 

8838898883893988 

63 

6388 

y y y ; N h Y y p IJ KL H F K 7 y ? K 

6188 

8 8 8 8 8 8 3 8 8 8 4383 3 8 

Ab 

6388 

86ï&02j&37j&BBp&58 

6118 

8 8 8 8 8 8 3 8 8843 8 3 3 8 

A6 

6319 

? K y 2 ? ’S: b U ? B B ? K y 2 y & 

6 1 1 3 

9 8 8 8 8 3 3 8 3 4 8 8 E 3 6 8 

AA 

f./t 1 O 

F 5 ? K 2 6 y & 1 8 y K 6 F y S 1 8 

6 1 28 

C 8 4 6 C 6 6 8 C 8 8 8 C 8 8 8 

HL 

6328 

y K 5 7 y K 3 4 . 

6128 

C 8 9 8 C 8 6 8 C 8 4 6 C 6 6 8 

0C 

6328 

O y 1 y i R y K h A+ K b y y K 5 b y K 7 b 

6138 

i j 0 y y l l l y y E l E y y y u 

96 

6338 

y 1 N T ( ri •••■' 256 ) y K b L- y 

6138 

8 8 8 C 8 5 8 C 8 8 8 C 8 5 8 C 

3A 

6338 

£5By£:78y INT (A/25 

6148 

8 8 8 C 8 8 8 C 8 8 8 C 8 F 8 C 

3F 

6348 

b ) y K b L- y &82 y K 8 y y K 2b 

6148 

888C888C90BB88B8 

C5 

6348 

y K 3 7 y K 64 y K y F 

6158 

8 B 0 9 B B 8 8 C 8 9 7 C 7 7 8 

r-i-i 

■C-u- 

6 3 5 8 

j y 2 y » H ü K L A F K b L y K 3 4 y K 7 5 

6 1 5 8 

B8070788880880A8 

"7 0 

b 3 5 b 

y K 8 A y K 3 A y & 8 6 y K 5 B y K 

6 1 6 8 

8822222222922249 

85 

6369 

74 y &37 y &2C y K84 y S: 5 B 

b 1 6 b 

2992222222222232 

97 

b 3 6 b 

y & 7 4 y K 3 y y K 2b y K 3 7 5 

6178 

262222228 8 B B B E B B 

B B 

6378 

R ET üKN 

6173 

BB 288 22222333343 

CA 

6378 

6 8 8 8 : v & v F = I N T ( E / 2 5 6 ) : 

6188 

6333222222225222 

92 

6388 

POKE • î b F 1 y y F : 

6 1 b b 

9 c; 9 o 9 =; 9 9 * 9 9 9 9 9 9 T 9 

26 

6 3 b b 

CALL A+&78 : G$=Y$: 

6198 

2243233222222222 

42 

6398 

P 0 K E & b F 1 y y L - F F 2 5 6 

6198 

2262266226222222 

98 

6398 

: CALL A+&78:G$=G$ 

6 1 A 8 

2266 9 9 6 6 9 9 2 2 2 2 A 2 ’ 

86 

63 A 8 

•f Y $ : RhTüRN 

61 A8 

2 2 8 8 8 F B B B B B B B B 9 8 1 

1 Ti 
Lu 

63A8 


61B8 

222222*3 22bZ2i22 

Q2 

63B8 


61B8 

63223299229922C2’ 

EF 

63B3 


6 1 C 8 

2 2 C 2 2 2 C 222 C 2 2 2 C 2 1 

98 

63C8 


6 1 C 8 

5 2 C 2 2 2 C 2 2 B C 2 2 C C 5 

B b 

6 3 C 8 



6138 

5 C C 6 6 C C 2 6 C C 2 3 C B 2 

8C 

63B8 


BB22BB22B22222325 46 
22433332266264255 BB 
2622222322322222525 
23263262222226255 6C 
5222226222462662’! E8 
2222228226288228! E8 
8228822826222232! F8 
2662232222622226:99 
26622222222222625 94 
5266566256222292! 9C 
2969938997A99BF9: 82 
9439939229222223! 82 
23323223233232235 54 
2332322323323223! 54 
2332322222222222531 
22222 28 B 8 8 8 8 B 8 B B ! B C 
8 8 8 B B 8 8 F 8 8 8 8 8 8 8 8 ! C A 
8 8 3 8 8 8 43833 8 8 8 8 8 ï A 6 
8 8 8 8 3 8 8 8 633 8 8 6 6 3 ! 2 C 
80868888883838435 A9 
43383443433834465 B7 
436 8 6 4 0 6 8 6 0 0 0 0 0 3 ! 1 b 
8 3 3 8 8 8 8 3 8 3 8 8 8 8 5 8 ! 8 9 
8 8358543533 5 8 5 5 B ï 65 
8 8 8 8 8 8 8 F 8 8 8 883385 42 
3 4 8 8 8 3 6 8 8 8 4 6 8 6 6 8 ! 43 
8 8 8 8 8 55854 8 8 0 5 9 8 ! 3 E 
8849899088888880! E2 
8BB8B4888B8888A8! IA 
004A8AA888888888: F4 
8 8 8 8 8 8 8 8 8 8 8 8 8 8 38:3 8 
8668838888888888! 69 
8 B 8 8 8 8 8 8 F 8 8 8 8 8 8 8 ! F B 
8 8 8 8 8 8 8 8 8 8 8 6 8 8 3 8 ! 36 
8888 050898888 A70! 8F 
8 8 8 B 8 8 8 8 8 8 8 7 8 8 885 1 2 
8787888080888868! 6E 
8 b4b644664466446 ! 4 h 
644 b 6 4 6 y y 6 y y y y y y ! 74 
0 g 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ; 0 0 
88BBBBBBBB88888F! FB 
8 8 8 8 8 8 8 8 8 8 8 8 8 7785 77 
748 8 8 7 8 8 8 8 8 8 8 8 3 8 5 A B 
8043033834008388 5 AB 
8888880888788888578 
8 8 8 8 8 8 8 8 8 8 8 8 8 8 7 8 î F 8 
808F0822222222225 B9 
2222222222222222: 18 
2268884686686446 5 B8 
8 6 6 8 6 4 8 7 8 6 8 8 8 8 8 6 : B B 
8 8 6 3 8 8 3 8 8 3 8 8 6 3 8 8 : F 9 
6 8 8 8 8 8 8 8 8 8 B E 8 8 E B : 2 B 
8880008808003E08: BE 
EB888838884383385 93 
8 8 8 8 B B 8 8 B B 8 8 6 6 8 8 : B C 
558F 8 8 8 8 8 8 8 8 8 4 8 8 : 7 8 
8 8 8 8 5 5 8 8 6 6 8 8 8 8 5 3 : 16 
53353588 8 7 8 8 8 8 8 8 5 C 4 
8 8 7 7 7 7 A 9 A 9 9 A 9 A 8 8 : 74 
88222222222222225 EE 
2 2 6 2 2 3 3 2 2 6 2 2 2 2 2 C : 6F 
222C222C552C552C: 9E 
BB2CBB2E22222232: 68 
224323722P2PPPP2 5 4P 



6 3 B y 

2808887722222292: 

97 

65D8 

1 86FFB8055820 1 8Ü : 

5E 

6 7 B 8 

A A 5 9 4 3 B 3 7 C 6 6 A 8 1 8 : B B 

63E0 

2949944994499492: 

52 

65E8 

I86FFB38537869F9 : 

27 

67E9 

6PF20083796C8E34: 8B 

63E8 

2922228888888888: 

15 

65E8 

83600233E297836B : 

81 

67E3 

6 7 8 3 3 A 22 6 7 9 B 3 3 9 C : 7Ü 

63F8 

8 8 8 8 8 85555 8 8 8 8 8 8 : 

BA 

65F8 

y 2 7 y E 2 B 5 2 4 6 4 y F 1 y : 

B0 

6 7 F 8 

670F3y 1 1 670B2A 17:72 

63F y 

8888888888222222: 

0E 

6 5 h y 

7y8y7y67E7y6785A : 

96 

b 7 F y 

522C168218525B02: 55 

6409 

227 8 6 8 9 9 h h 6 3 8 1 3 8 : 

El 

6680 

952458640F 187889: 

FD 

6308 

88342C0B8228525B : 3Ü 

6488 

1 b b 3 0 9 3 o 1 2 1 0 6 F F E : 

49 

6608 

7867E7036E0238E2: 

57 

6808 

9 2 8 8 342 C 8 4823 0 5 2 : EA 

6418 

5742425278689910: 

B 6 

6 b 1 8 

B524648F 10789273: 

B 6 

6818 

5B34F6 1 A836B8238 : 47 

6418 

6FFE574343527967: 

7 f; 

66 1 8 

6 7 E 7 8 6 7 9 5 A 8 5 2 4 5 S : 

1F 

6818 

E297888088780A2F : A2 

6420 

B 8 8 3 6 B 0 2 E C 7964 2 C : 

3 B 

b 6 2 y 

640F 1 0709B7367E7 : 

54 

6829 

0380590300841402:79 

6428 

0 3 6 B 0 2 E 2 E 2 9 7 8 2 8 9 : 

B 6 

6 6 2 8 

106FFC341B837282: 

91 

6828 

8y34242b2Fy3Fb 1 A : Ü9 

6438 

342488BB86574753: 

AA 

6639 

8 8 E 2 B 5 8 3 7 8 E 2 9 7 y 3 : 

y 6 

6838 

3 7 F 6 1 A A F 6 2 8 9 2 8 9 8 : 0 8 

6438 

2F0837E43667 1 728 : 

2E 

6 6 3 8 

0 0 y y 0 0 A 0 6 9 9 8 2 4 6 7 : 

8 B 

b 8 3 y 

8 2 8 9 B B A E 8 2 1 9 B B 84:7 C 

6448 

0 b 6 B 0 8 3 9 0 3 6 7 3 6 3 7 : 

88 

bb4y 

0B2A0A8859268359: 

1 A 

6840 

1 3AE8A2484 1 3 A E 0 B : 3F 

644 y 

2222222222222218: 

FE 

6648 

2 6 A 8 7 8 6 1 4 9 4 0 8 8 6 3 : 

9 A 

6848 

6B923802584283C7: SB 

6459 

708800230238 1F2C: 

98 

6 6 5 9 

y L" 2 9 1 4 U 2 3 3 6 3 y 4 3 y : 

2B 

b y 5 y 

380C2A0A80J3B3359: AF 

6458 

h 2 7 y 6 4 C 6 7 8 6 4 C 6 7 8 : 

5E 

6658 

y 9 y y y y y 4 7 y y 3 2 B 2 1 : 

4E 

6858 

3845592B8EF61 A37 : A8 

6460 

B98C37F175FDB973 : 

D0 

6668 

4BA859433A3F106F : 

C i 

•J i 

6368 

9159866780380B67: 83 

6 4 b y 

69EB7869F9736h13: 

23 

6 6 6 8 

F B 8 9 5 5 A 9 5 9 8 8 C 7 3 A : 

4A 

6868 

9 1 3 8 0 B 6 7 8 2 3 8 8 D 9 2 : F 6 

6470 

3778 b 4 5 9 8 3 6 A 8 2 B 8 : 

T: "2 

B 

6678 

87h05943342C0710: 

b A 

y y 7 y 

5 E 2 C 8 B 8 2 8 9 2 C 8 7 8 2 : C C 

6478 

E297E2AA0346F 1 75 : 

B4 

6 b 7 8 

6FFB574334A059BA : 

8 B 

6 8 7 8 

492Cy3y2 1 bBBo7y2 : F 3 

6488 

F B B 9 8 8 8 3 1 0 6 F F 2 9 8 : 

BA 

6680 

7868314308908044: 

13 

b y y y 

78BB905967863A08 : E3 

6488 

181 1F6A918A31313: 

A0 

b b b b 

445974888372E297 : 

7 F 

6888 

37709275862B0A34: BF 

6490 

0h b A i b 1 -0 b r r b90 1 9 : 

b F 

b 6 9 y 

1078BF57036BE2B5: 

A5 

6898 

g f, ? r 0 5 2 7 9 3 7 1 959 7 : AA 

6498 

836B8249E2B5036B: 

C0 

6 6 9 8 

2426242606 1978BF: 

El 

6898 

3 7 1 y 6 F F F 5 7 b 7 y 0 3 y : h B 

b 4 H 0- 

Q 2 1 E E 2 9 7 8 3 1 6 F 1 7 5 » 

i y 

b b H y 

S6532F26A A 8 2 8 A B B : 

BF 

68A0 

8B6701380B670238: 5B 

b 4 H y 

F B B 9 7 y b h 1 3 E 4 3 6 b 7 : 

4C 

66A8 

036E82FFE23B02FE: 

E 1 

6 8 A3 

8B829B2C0B82802C: 3F 
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(d* 9 h 30 à 12 h 


devenez 


LAVALLEE 


Il y a longtemps de cela, Alarian le magicien 
régnait sur la vallée, alors paisible et fertile, 
mais le jour où Vonnim le maléfique lui déroba 
le casque d'Evannah, sont pouvoir s'effondra. 
Depuis ce jour funeste, les forces du mal pla- 
nent sur la Vallée. Des monstres rôdent la nuit 
comme le jour, tout particulièrement autour des 
sinistres sanctuaires que sont le temple Y'Na- 
gioth ou le repère de Vonnim. 

Seule la route qui traverse la Vallée de part en 
part reste à peu près sûre... Nombreux sont 
ceux qui ont pénétré dans la Vallée pour retrou- 
ver le casque d'Evannah... leurs ossements jon- 
chent maintenant les marais. On dit même que 
leurs fantômes défendent à tout jamais ces 
contrées sordides. 

Hardi aventurier, si tu te risques dans la Val- 
lée, tu ne pourras pas dire que nous ne t'avons 
pas averti... 


La Vallée est un jeu de rôle graphique en temps 
réel relativement simple. Un jeu de rôle est un 
jeu ou vous devez faire évoluer dans un uni- 
vers étranger un personnage défini par plu- 
sieurs caractéristiques, les principales sont : 

• son expérience 

• sa force 

• son pouvoir 'psy' (aptitude à la réflexion et 
à la magie) 

• sa stamina (correspond à sa santé, moins de 
10 = à l'agonie, 0 = vous êtes mort). 

Votre personnage (s'il survit) évoluera au cours 
du temps, n'hésitez pas à le sauver sur K7 et 
soyez patient car les personnages peu expéri- 
mentés meurent facilement. Ne vous décou- 
ragez pas, vous ne retrouverez pas le haume 
d'Evannah en une seule partie. 

Vous découvrirez la Vallée par vous même, 
voici cependant quelques explications : 
Déplacements 

Q W E 
\ t / 

Ar— S — D 
/J\ 

Z X c 

S est préférable si vous êtes agonisant. 


Combats 

Vous pouvez frapper : 

• à la tête (T) difficile ! 

• au corps (C) 

• aux jambes (J) peu efficace ! 

Vous pouvez aussi utiliser la magie (M) suivi 
d'un numéro de formule : 

• 1 sommeil 

• 2 psy-lance 

• 3 malédiction absolue 

Si vous trouvez le jeu trop lent (ou trop rapide), 
modifiez la valeur TM à la ligne 130. 

Vous pouvez évaluer votre personnage en 
appuyant sur la touche jaune au-dessus de CR. 
L'amulette d'Alarian, si vous la trouvez, et la 
complétez de pierres amulettes, vous rendra 
partiellement immortel et vous aidera retrou- 
ver le haume d'Evannah. 

Bonne chance ! Je vous conseille de choisir 
pour débuter, des personnages de type « Bar- 
bare » il ne peuvent devenir aussi puissants 
qu'un magicien par exemple, mais sont plus 
faciles à jouer. 

Simon Chagnoux 
(D'après Computing Today April 82) 
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E ™™s-=.s œiE — e - - — 

|oo >ET LS ™ N0UE '" :SC ' 2!RE1U,iN 

^5-' ^PMS--OT'HENN=N-D: G0T0553O 

^,20 MS-MS- 0 : I FD > 1 OTHENN* I NT ( N- ( D /3 ) > 

v./. (...0 F-RIN T 0» ; "FT l ’ ATTF TNT ,, . n . ,, 

5540 IF( M B. N K=0THEN557,Î '" ’ * ParNTS DE DE0flT 

cSÔ Ï 3 ^Sn d " , “ SUB3600 ° 

S» "’" 

SS ™E™ r ‘ PK=l6,,mENPR,WTM! " VS * ™ UVi;Z “ TRER PBR ‘-«•■■-BOTOPUC 

9C»30 M RT ) -INT (RND (TI) * 5 1-4 > 

7'..i4o I r- N RT ) -5THEN9030 
9050 NEXT'I 
9060 IFS- 1 THENMP-M 
9070 P ( 2 ) - 1 NT ( RND ( T I ) * i , , 
rr - fM: 00109(30 

9120 OOTOOOio" ' ' •DF-tr..oïD L *=" W " !GDS u B 3 600o 

c ; l \’ :| ' rJf ™ • ' * ■ ■ r -m FW , o 

f ; " Ol = 7;v )n , L r N , 3 „i :FL=1 

91 V,' 11 2 ' * ( S-4) THFNS -1 s Fl -T 

91. 70 Trnt=*EFrHENS=7îVVS 6> THENS=S 3: PI- “EL 4s M-MW 

^ 1 !:! 0 1 ra 1 " ■■‘ >r P r, 1EM0-3 : FL — 3 

9230 î 2 010, 14000, 14010, 14010 ' 

p'-oi-i . S- ! 

10020 T- OR 1-1 to 

10030 PR INT"® 

10040 NEXTI 

PR I H F " «383888888888888888^ , 

/mou ornr-Nj<u 7 

P0RJ-2TD72STEP 2 4 

IFRND (TD ÿ. 5THEN 10120 
c ’ r - 1 1 9 : L .1 - 1... + 4 1. : GO TO 1 0 1 3 0 


1 006 

1 007 

1008 



5 SCOLOR, 


105 1.1=1. 


•39 


1 01 4< 

1 01 6< 
.10 r/r 


>3286 > THEN 1 ij 1 00 


v ,F 01 >=53766) 

1 ; G ( I -i- j ) -pf; 

0(73) -74 : 

f : 'OR I -0T072B IFP7 




, ln ' :,<0> - ''IIILNI07IT0 

«! {4ÔÎnÎ ! .'n2 NZ ” IN ' <RND 11 11 * 3 -» « 

«0Ï70 NEXTI tMS ' * ’ ’ <: >0! + <PEEK <S < I > TI K >0 ) THEN 1 0240 
''“«I Si] «O, «O.POKESU , , „ T 

■ *l-r !F Ô| r pR-Î7,[S,,n , . E ,Vo. ü liM <? ’ -*P"'*Bn: PDI CSI3I , «ET 

lïïio ™ï? 1 ; 4 1’*“ i ™ kee '*>«soo,» ao 

1-03.20 RETURN 

, : Si 

le. 1 , zi r™;i",. r i u ' iniiLB > | -' | » j !»-»fc- 

12050 FOR I-i T07f)n 

; PP" INI( RND (TUtsi 5 ) , pr 
120 70 NEXT I ' I L 

1. 20B6 PR ]. N T » ffl » ; D 2>1; ; R 2 * ; "{afflm" 

I - OU T'H i N I R2Ï S " Hfl un» 

l..cllO F'fï IN 1 R2» ! " IIH" > ; p-ir. T i-.IT T / t»-,, 

ttH ,'l R 1NIC2, 63 "gj'' ; : pRi|\j T m mm „ 


ililiil 

i 1 70 

12.1.40 
12150 
1 2 1 AO 
12170 
12100 
12.1,90 
1. 2200 
J - 1 o 


PRINTR2*? ■•emmfflan»" 

PRINTR2*; 

PR I NTR2* ï "i 
rRlNT"BJ«*»i 

FOR 1=0 10.13 
PR INT 
IMEXTI 
PR INT" 




1 10 10 
11020 
1 4030 
1 4010 
1 4050 
1 4060 
1 4070 

14000 

1 4090 
141001 
141 1.0 
14120 ; 
MM' i; 
14140 
14 1.50 ; 
14160 
14 170 
14 . 1.80 
.14 190 
14200 
1 42 1. 0 
14220 


1.4 240 
t 4250 
1.4260 
14 270 
1 4280 
1 4290 
14300 
1.4310 
14320 
I 4330 
14340 
14350 
.1 4360 

liï'illll 

lllii®: 

1. 4400 
14 41. 0 
1 4420 
J 4430 
I 4440 
1 4450 
1 4 46'“' 

llllllfi: 

iiilll 

lillli 

Bfiic® 

iiilW 

1 457n 
I 43 ;:,' ) 

lillîi® 

1 4550 


1 504 0 
.1 5050 


1. 5080 
1.5090 
15100 
36000 
36010 
36020 
Ï 06 O 3 O'- 
36040 

36060 
3607'..» 
36000 
r î 361 -> 90 : 
36100 
36110 
36 1 20 
36 1 30 
361.4 0 
36150 
36 .1 60 
36 1 7( > 
36180 
36190 
3.6200 
3621 0 
70221 > 
36230 

4 1.000 

4501.0 
4 5020 
430 50 
4 5040 
45050 
4 5<>6'i 
45070 
45080 
48000 
4801-1 
48020 
4 8') 5-' 
4804 0 
4 8050 
«18060 
4 8- ) 70 
48080 
1 0090 
48100 
481 K) 
5< >00) > 
b* >< 1 1. 0 

50030 
50040 
3' )' )50 
50060 
50' > -’-) 
30080 


S.SMSEB-A TOUR POURPRE" 

DE ZAEXON 

El ETAGE " ? FL--1 : GOTO 14490 

E VOIJN IM": GOTO 1 4500 
ESBQBLE TEMPLE DE" 

Y 'NABOT H " 


POKE53786, O: W~53786 
I FQ 1 ~2 1 2THENM=MW : W=M 
COL OR, ,7, URETURN 

ET- " CAGE 11 : P=0 : H=N ( FL > : PK=Q : COL OR .,2,0: GOTO 1 4020 

F$= "CBE" s P=Oï H® N (PL ) : PK~0 : P < FL ) =P ( 2 ) «COLOR, ,3,0 : IF S=6 THEN COL OR, «4.0 
COM SOI CO, 15: CLS: CONSOLE 

PR I NT " asmÊHÊÊÊÊÊÊÊÊÊÊÊÊÊKKÊÊÊKÊÊtKÊm H : FOR I = 1 TO 1 3 

PR INT "Bsa kl" 

NE' X T I 

CfJLOR , , 7 , 1 : RESTORE : FOR I = 1 TOP < FL ) 

PRADO : r F V“ 1 OOTHENRESTORE 

NE X T I 

L 1 =53290 

FOR J — 1 T 03 

RE A DD (J ) :P-p+i 

I RD ( J ) = J. OOTHENRESTORE : D < J ) =3 : P=P+ 1 
NEXTJ 

FüRI=0F0H:PC=67 

L..=L 1 + < 40 * I > : I FL >53770THEN 1 4260 
l F I = 1 THENPC=Q 

IFD < 1 > =0THENF'C=6 7 : GOTO 14200 

PÜKEL+D < 1 ) , PCsPC=67 

IFI=3rHENPC=0 

POKEL+D < 1 > +D < 2 ) , PC : PC=67 

I F" I “4 1 HE NPI '=0 

POKEL+D < 1 ) +D ( 2 ) +D < 3 ) , PC : PC=6'7 
NE X T I 

L 1 = L 1 + ( 4 O * H ) + 4 O : BO T 01411 0 

L 1 -=53290 

FOR J= 1 T04 

l..=L.l + (40*J*(H+l) > 

FORK-1TOJ9 
I FL >53730 THEN 1 4350 
F'OKEL+K, PC 

IR (K=2J+ <K=3*H> + <K=17> THENPQKEL+K , Os P0KEL+K-40. OSPOKFI +F-. + 40 , O 

NE X T K 

NEXTJ 

IF <S=5> + (S=6) THEN 1.4380 

I FFL/2= I NT ( FL /2 ) T H E N P O K E 5 3 7 7 1 , 253 : GOTO 14380 

Éjtfi|i|ë: 53 :!j 3 j^ 

i: F ( Fl ..=2 ) + ( S=5 ) + ( S=6 ) THENPDKE53B 16,212 : P0KE53776 , 0 
l FP ( 3 ) = O THE MW =5377 6 
IFS=5THEN 14470 
I F ; S == 6 T I ■ I E N 1 4 4 5 O 

ppiiNn:o,2i"m" SRI*; "e. 

PRINTTO, 211 R 1*5 " C33E 
PR I NT f.: 0 , 2 3 R 1 D ; " g JPBtEE 
PR I N CIO, 4 3 "IU" ; Rl * ; "J 

PR 1 NT F 0 , 5 .1 " [g" ; R l. * ; " J 

P (FL J I )==*'( Fl.) +P 

L P < PI < 4 > + ( I l'MD ( T 1 > < . 3 ) 1 HENRETURN 
P CIR J =t t F O f NT' < R1MD (TI) *5 ) +2 
N I = 1 MT (RND (TI ) * 19) 

N7==1NT<RN1)< TI ) *12) 

IFPEEK (53291+4Q*N2+N1 ) < >0THEN1452C 
FOI E (8329M 40ÜN2+N.1. ) , 107 
N EX TI 
R ET U R N 

POKEW, 202: POKEM, 0 

PRINTDit; "LJN ESC AL 1ER. . . HAUT OU BAS ?" : TV=R 
VG*~ " I IP " : GOSUB 1 500 
IFGC*=="H"THENFL==f-T.. +1 : GOTO 15050 
Fl . — F-'L - .1 

I P < Fl . >7 ) + ( F L< 2 > THEN 1 5uB0 
DF= 1 1. 0 : DL*= " D " : G0SUB36000 
80 109220 

P FI' IN T L)*; " C 7 EST I MPOSS I BLE " 5 SPC ( 20 ) 

I')F =60 : DL *= " 1) " : G0SUB36000 
FL.= T V: GOT0 1.5010 
FORDL= 1 T O ( DF * TM ) 

ME X T DI.. 

.! F DI. :*== " D " THENDL*='"'" : RETIJRN 
F'R I N T OT ; SP* 

F- R J N TSF'* 

F'RTNTSF'* 

I FOL. *= " W " RETIJRN 

ircS>77-INT<2*Pl +2.5) THENCS-77-INT <2*P1 +2.5) 

1 1" F' S < 7 T H E N P S = 7 

I EPS > INT (42* (Pl+1) +LN (PI +3.7) ) +75THENPS=INT (42* (Pl+1 ) +LN(P1 +3.7) ) +75 
I FC > 1 25— < INT (PI ) *12. 5) THENC= 125--I NT ( INT <P1) *12.5) 

PRINTDl*: "SI" 5 J*, P* 

PR INT "TRESOR =";TS 

PR I NT "EXIGER I ENCE 5 EX 

PR INT "TOURS ="5'TN 

PR I NTT.) 1 * ; R 1 * 5 " FORCE PHYS = tSESSâ" 5 CS 
PR I N I R 1 * 5 " PÜUVO I R PS Y= HSKSS" : PS 

PR I NTR 1. * ; " STAM I NA = taraaH " ; c 

I F CF « l THEN362 1 0 
PRINTSP* 

RETIJRN 

PR :r NI D*; "SU" : M*; 

F'R I NTD* ; R 1 * ; " B9.jM STR = BQE3SGBSXBEEE" : MS : N ; " 

RETTJRN 

DF==5 : DL.*== " W " : B0SUB36000 

RT=INT ( . 067* (EX + TS/3) +. 5+LN (EX/ ( (TN+l > +1.5))): IFRT>28THEN R T ==20 
IF RT ï. 0 l'HENR'T ='0 

PR I NTD*: "VS ETES DE NIVEAU" 5 RT:" MAINTENANT" 

! F T ( 2 ) = 1 THENF’R I NT " VS AVE Z LE CASQUE I.) ' EVANNA " 

I. F T ( O ) = .1 THENPR I NT » AMULETTES ... " ; T < 1 > 

DF-250: 1)L*="W" : GUSUB360Ü0 

1 FGC*= " " " THENC=C— 1 O : GC*= " " : G0T02010 

RETIJRN 

PR T NTD* 5 "VS ETES DANS UN CHATEAU" : IFCS<20THENCS===20 

POKEM, P K : t : 'E “F'EEK < W ) : M=W: POKEM, Q 

F'R INT "VOULEZ VOUS QUITTER LA VALLEE (O/N) ?" 

VG*- " ON " : GOSUB 1. 500 

DF- =5 : DI. *== " W " : G0BUB36000 

G0SLIB45000 

DP=- 1 I. O : DI. *= " W " : GOBI ID36000 
I F GC*= " 0 " T 111=1450000 

C *= .1 50 : F'R I NT L)* ; " LES PLAIES GUERIES, .. L’ EPEE AIGUISEE" 

PR INI" VAS LA OU TON DESTIN T’ATTEND ..." 

DF” 1 70 : G0BUB36000 
GOTO 20 10 

PR INI" IjîVOI II...E / VS F. NREG I STRER " ; J * 5 " ? " 

PR I N I : F'R INT" PRESSE 1 ' O ’ OU ’ N 7 " 

VG*== "ON " : GOSI.JD 1500 
1 F GC*=="N" VHEN50210 
F'RINI "WFIEPAKTZ LA CASRFT TE" 

PR T N T " ALT 4 IV F - 1 St IR ' F(E CURD ' " 

GOSUB 1 600 : IJS R (62 > 

WOPEN J* : PR I NT " BJÏW 7 ENREG I STRE " ; J* 

PR I NT / TT* : TS : EX ; TN ; CS : PS ; T ( O ) ; T ( 1 ) ; T ( 2 > ; C l ; P l 


50190 CLOSE 

50200 PR I NT " |«iK" 5 J * 5 " EST ENREG I STRE " : END 
55000 C»0 : CS=ô : F : 'S=0 : CF'=Ü 
550 .1. 0 Df ■'= 1 .1 0 : GOSUB36000 
55020 I FT ( 1 ) =6TF IEN55070 

55030 F'R I NTD* î "EEUH QUELLE FRAGILE CREATURE" 

5504(1 PRIIMT "fiSiSN’EST CE QUE CELA UN HUMAIN ?" 

550 5 O DF" ==400 S Dl..*= " W " : G0SUB36000 

55000 l-'R I NTD*; "L’AMULETTE D’ALARIAN PROTEGE CETTE AME" 

55090 PR .1 N T " fiJHHf I E S I. JR E C T I ON«i" 

53 1 OU 1 >F = 1 50 : GOSIJB36UOO 

551 1.0 L=B (O) : MF"=L. : M==W: B=l. : G0T89220 

60000 DATA4 , 7 , 3 , 6 ,“4,4,6, 5 , 3 , 6 , 0 , 3 , B , 4 , 3 , 5 , 5 , 3 , 8 , 3 , 4 , 5 , 0 , 6, 3, 6, 4, 6, 4, 7,4, 1 00 
60-Hn DATA AI..UUP GAROU, 9,0, A GNOME , 9, 0, AGRQUE, 9, O, ELU TIN-FLAMME, 7. 3, GTRIII. I , I 9.0 
60020 DAT AEHOMME-LEZ ARD , 10, 1.2, ADGRE, 23, 0, BECTOPL ASME , 0, 25, HCENTAURE, 18,14 
60030 DAT AEGEANT- Fl AMME , 26 , 20 , VLEZARD TONNERRE , 50 , 0 . CM I NOTAURE . 35 , 25 , CSPECTRF , O , 

30 * 

6004 ( , DA VAL- MUET V I VONT , 36 , .1. 2 , B DR AG ON , 50 , 50 , CESF'R l T-ANNEAU , 0 , 45 , A FJ Al. RGB , 50 . 50 

60050 DATAI I 11 FIN D’EAU, 15, 15, LKRAKEN, 50, O 




Ce (long) programme présente un double intérêt : C'est d'abord un excel- 
lent programme de jeu destiné à de très jeunes enfants ; l'originalité et 
la qualité, dans ce domaine, n'est malheureusement pas monnaie cou- 
rante. C'est ensuite une parfaite démonstration de ce qu'il est possible 
d'obtenir du MZ 700, au niveau graphique, à partir du BASIC. 
Comment jouer ? Tout est indiqué dans le programme, il ne vous reste 
plus qu'à le taper et à tirer profit des nombreuses astuces qu'il renferme. 
Ce programme, très bien documenté, peut être aisément adapté, comme 
« LA VALLEE » sur MZ 80K et A moyennant quelques modifications 
mineures. Toutes nos félicitations à Monsieur Arnaud pour cette réali- 
sation qui sort des sentiers battus. 


10 DIM B (1 ) ,D ( 1) , I (4) , B* (5) 

20 DIM T < 38 , 23 ) , 3 < 5 ) , U < 4 , 23 ) 

30 DEF FNV(X> =53248+40* Y+X 

40 CONSOLE s COLOR,, 7,1 s CL.S s CURSQR 8:, J.0 

50 PR INT "Ver s ion en couleur (G) ?" 

60 FR I NT 11 BBHEEou version en noir et blanc (N) ?" 

70 PRINT"HB(la version en rioir. et blanc avec un" 

8 0 P R I N T " (iiü ri i t e u r c o u I e u r e s t: t r e s acre p t a b 1 e» ) ’ * 

90 CURSOR 8,19 ïPRÏNT"Choix s C ou N "5 

100 INPUT G* s IF C*="N" GOTO 130 

110 C2-2 :C4=4 s C5=5 : C6-6 s F 0-0 s F5-5 

120 PP— 112 ; P El ~ 3 2 : PE- 9 6 s PN-80 :: GOTO 150 

130 C2=7 s 04=7 s C5-7 s C6-7 sF0=lsF5=7 

140 PP= 113 s PB- 113 :PE=113 îPN-113 

1 50. COLOR , , C6 , FO s CONSOLE s CLS s CURSOR 7 , 1 2 

1 60 I N PUT " Ex r 1 i cat i ans ( 0/M ) ? ■ " ; RH 

170 IF LEFT*(R* ? 1)="N" GOTO 350 

180 TEMPO 7 : CLS s RES TORE 6250 

190 FOR Q— 1 TO 40 : READ A* 

200 CURSOR 0,23 s FOR A=1 TO LEN(A$) 

210 B$=M I D‘4> <Aîi>, A, 1 ) 

220 IF B*-"/" PR INT s GOTO 320 
230 IF B*<>"\" GOTO 300 
240 PR INT SPRINT 

250 FOR B-l TO 7 s IF B< >5 GOTO 290 

260 A*-" * " » CURSOR 17,23 

270 FOR C-l TO 7 SPRINT MID* (A*, C, 1 ) ï 
280 MIJSIC"R2" sNEXT C SPRINT 
290 PR INT s MUS IC "R7" s NEXT B s GOTO 330 
300 IF E$<>" " THEN MUS IC "RO" 

310 PR INT B$ji 
320 NEXT A 

330 PR INT SPRINT s NEXT Q 

340 FOR G=1 TO 2500 s NEXT Q 

350 COLOR,,, F5 s CLS : RESTORE 6650 

360 X-39 SFOR Y=0 TO 24 

3 7 0 P 0 K E F N V ( X ) + 2 0 4 8 , H 0 : NEXT Y 

380 FOR Q-l TO 500 sNEXT Q 

390 COLOR, , C6, FO 

400 Y- 12 s DY=i SX- 12 :DX=15 s MARGUE-5 
410 FOR Q-l TO 29 : IF Q>12 GOTO 440 
420 CONSOLE Y,DY,X,DX s CLS 
430 Y-Y— 1 s DY-DY+2 : X-X~ 1 sDX-DX+2 


440 l-OR K-l TO 2 s READ Y1,A,B sKl-Kl+1 

450 IF Kl >32 THEN MAROUE-2 

460 FOR X 1 —A TO B s T < X 1 , Y1 ) -MARQUE 

470 NEXT XI sNEXT K SNEXT O 

480 CLS s CURSOR 2,11 s COLOR,, C4, 

490 PR INT "Nombre de minutes de .jeu " ; 
500 INF'LJT NM IN s NM I N -NM I N* 1 00 s CLS 
5 1 0 CURSOR 7,11 s PR I NT " Mus i que < 0 /N ) " ;; 

520 INPUT M$ : M$=L.EFT$ <M$, 1 ) 

530 CLS" : CURSOR 4,11 

5 4 0 P R I N T " E n g u :i. d a n t 1 e s e n f a n t s ( 0 / N ) 
550 INPUT B A* s BA$=LEFTÜ» ( BA$ , 1 ) 

560 CLS sPOKE 54168,63 s POKE 54206,55 
570 POKE 56216, PP SPOKE 56254, PP 
580 POKE 53488,63 sPOKE 53526,55 
590 POKE 55536, PP sPOKE 55574, PP 
600 MUS IC »R7" s RESTORE 6960 
610 TEMPO 6 s MM— 26 s CHANT - 1 
620 CLS s GOSUB 5630 : GOSLJB 5630 
630 Y-8 s GOSUB 5570 s COLOR,, 7, 

640 CURSOR 1,24 s FOR 0=1 TO 9 
650 GOSUB 5630 SPRINT "KK KK " 5 * NEXT Q 
6 6 «I) P 0 K E 5 4 2 4 5 , 2 2 9 s p 0 K E 5 6 2 9 3 , P p 
670 COLOR,, C4, s CURSOR 1,23 SPRINT 

680 GOSUB 5630 s PR INT TAB C 19) ji " >" ; 

690 S < 1 ) - 1 8 s S ( 2 > - 1 7 : S ( 3 ) - 16 s S ( 4 ) - J 5 
700 S (5) -19 s SH ( 1 > — " / 1 \ " :S*<2>-"//«\\" 
7 1 0 SH ( 3 ) - " / / / Il \ \ \ " s SH ( 4 ) - " / / / / » \ \ \ \ " 
720 SH (5) I " SFOR Q-l TO 5 
730 FOR K-l TO 2 s GOSUB 5630 SPRINT 
740 PR I NTT AB ( S ( Q > > ji SH ( Q ) s s NE X T K s NE X T Q 
750 CONSOLE 

760 GOSUB 5700 s • V •> achevt chant 1 
770 CHANT =2 s MM-55 : RESTORE 7010 : MlJS-0 
780 TEMPO 5 s '‘ouverture portes d’en bas 

790 CURSOR 0,23 s PR I NT C 7, 3" fil " s 

800 CURSOR 37 , 22 s PR I NT 1 7 , J " Jjjjj " ; 

810 H» arrivée enfants d " en bas 
820 MUS I C " R 7 " s N- 1 5 s ? ¥ 1 er e f o i s 
930 G ( 0 ) = 1 60 : G < 1 ) - 1 68 s D < 0 ) - 1 67 : D ( 1 ) - J. 69 
840 TEMPO 6 s GOSUB 5630 - " ->s ,pr, musique 
850 Y =23 SFOR X-0 TO N sA-FNV(X) 

860 B-A+38-2* X s J - 1 NT ( X /2- 1 NT ( X /2 ) + „ 5 ) 
a 7 0 P 0 K E A+2 0 4 a , P E s F' o K E B + 2 0 4 a , P E 
880 POKE A, 202 sPOKE B, 202 
890 IF N- 15 GOTO 920 s •’ V pas de bâton 

900 POKE A+2049, PB sPOKE B+2047,F‘B 
910 POKE A+i , G ( J ) sPOKE B-1,D<J) 

920 IF X=N GOTO 940 s ’ * pas cTeffact 

930 GOSUB 5630 : POKE A, 0 s POKE B,0 

940 NEXT X s IF N-7 GOTO 990 

950 GOSUB 5630 : GOSUB 5630 

960 POKE 54168, G(l) sPOKE 54206,0(1) 

970 POKE 56216, PB sPOKE 56254, PB 
980 N=7 s GOTO 840 s ? 2eme fois 
990 POKE 56183, PB sPOKE 56207, PB 
1 OU O GOSUB 5630 s ? ferm« portes d ^ en bas 
1010 CURSOR 1,22 s PRINTC7, 3" figaa »" s 
1020 CURSOR 38,23 : PRINTC7, 3 "| HH! "5 
lü3o GOSUB 5630 s ’ouv. portes d ? en haut 
1040 CURSOR 0,6 s PR I NT C 7, 3" BJT" ; 

1050 CURSOR 37,7 s PRINTC7, 3 ""Si’ " 5 
1060 GOSUB 5630 s "enfants d’en haut 
1 070 POKE 55536 , PB , PB , PB , PB 
1080 POKE 55571, PB, PB, PB, PB 
1090 POKE 53488,52 SPOKE 53526,52 
1100 GOSUB 5630 : POKE 53489,52 
1110 POKE 53525,52 s POKE 53490,52 
1120 POKE 55536, PE s POKE 53488,202 
1130 POKE 53524,52 : POKE 55574, PE 
1140 POKE 53526,202 s GOSUB 5630 
1150 POKE 53488,0 s POKE 53526,0 
1160 POKE 53491,52 sPOKE 55537, PE 
1170 POKE 53489,202 : POKE 53523,52 
1180 POKE 55573, PE s POKE 53525,202 
1190 GOSUB 5700 s ’ V abaissement bâtons 
1200 POKE 55579, PB s POKE 55611, PB 
1210 MUS IC " R5" SPOKE 54176,160 
1220 MUS IC "R5" s POKE 54198,167 
1 230 MUS I C " R 5 " : POKE 53490 , 1 60 , 0 
1 240 POKE 5353 1,169 s MUS I C " R5 " 

1250 POKE 53523,0,167 

1260 POKE 53563,168 s MUS IC "R5" 

1270 A-0 s •’ * . * ’ * #: 

1280 TEMPO 6 s MM- 102 s MUS-0 
1290 CHANT-3 : RESTORE 7110 
1 300 S ( 1 ) - 1 07 s S ( 2 ) - 1 03 s S ( 3 > -46 s S ( 4 > = 1 07 
1310 FOR Y— 1 TO 23 : FOR >Q=1 TO 4 s A-A+l 
1320 ÜN A GOTO 1330, 1350, 1370, 1330 


1330 A=1 s POKE 55515, PE : POKE 53467,107 

1340 POKE 53656,0 : GOTO 1390 

1350 POKE 55726, PE s POKE 53678,107 

1360 POKE 53467,0 s GOTO 1390 

1370 POKE 55704, PE s POKE 53656,107 

1380 POKE 53678,0 

1390 X — I NT < 35 * END < 1 ) ) + 2 

1 400 I F ( T ( X , Y ) < >0 ) * ( T ( X , Y ) < >2 ) GO T O 1 390 
1410 T < X , Y ) -T ( X , Y ) -i- 1 slJ(G!, Y) =FNV ( X ) 

1420 IF Y >21 GOTO 1450 

1 430 GOSUB 6 1 60 : •" ¥ 4 s /prog - pas i t. i on 

1440 I (POS)=I (P0S)+1 

1450 NEXT Q sNEXT Y s POKE 53678,0 

1 460 MUS I C " R 7 " : MUS I C " R7 " 

1470 FOR Y=1 TO 23 ! FOR Q=1 Tü 4 
1480 GOSUB 5630 : IF Y >21 TH EN S(ü>=107 
1 490 POKE IJ ( Q , Y ) , S ( Q ) 

1500 POKE U (Q, Y) +2048, P N s NEXT Q s NEXT Y 
1510 GOSUB 5700 :C0L0R,,7,0 
1 520 CLJRSDR 2 , 0 s PR I NT IJS I MG "##"51(1)5 
1530 CURSOE 35,0 SPRINT US ING"##" 5 I (2) 5 
1540 CURSOR 2,24 SPRINT US ING "##"5 I (3 ) 5 
1 550 CURSOR 35,24s PR I NT US ING"##" S I (4) ï 
1560 RESTORE 6850 s FOR Q=i TO 9 
1570 READ Y 1 , A , B s FOR X1=A TO B 
1580 T ( X 1 , Y 1 ) =4 SNEXT XI s NEXT Q 
1590 MUS IC "R7 " s MUS IC "E7" 

1600 TI $=”000000" s TEMPO 7 

1610 ? ¥ génération position oiseau P# - " 

1 620 X 1 =0 s Y 1 =0 s Y0= 1 s X 0= 1 9 s N9=0 
1630 CURSOR 17,0 SPRINT" GHSœ '' 5 

1 640 MUS I C " R 7 " s COLÜR , , 7 , FO 
1650 PR INT" EKSSESR " s 

1660 MUSIC "E5 " sMUSIC"R5" 

1670 CURSOR 17,0 SPRINT" "5 

1680 H1$=TI$ s DEBUTAI : PAS=2 

1690 GOSUB 5750 s ? ¥ 4 test temps 

1700 ? ¥ recherche quartier le + dense 

1710 MAX=I ( 1 ) s M X = 1 SFOR K=2 TO 4 

1720 IF I(KK=MAX THEN NEXT K: GOTO 1750 

1730 MAX=I <K) SMX=K sNEXT K 

1740 ’f on en tient compte progressivt 

1750 IF N9 >23-1 (MX) GOTO 1770 

1760 N9=N9+1 s GOTO 1800 

1770 •" $ paramétrés vol écran entier 

1780 N9=Û ïAX=37 :BX=0 

1790 AY=25 s BY=Q s GOTO 1870 

1800 * $ paramétrés vol par quartier 

1810 ON MX GOTO 1820,1830,1840,1850 

1820 AX=21 s BX=0 :AY=14:BY=0 -"GOTO 1870 

1830 AX=21 SBX=17SAY=14SBY=0 s GOTO 1870 

1840 AX=21 s BX=0 :AY=16 :BY=9:G0TD 1870 

1850 AX=21 s BX— 1 7 :AY=16 s BY=9 

1860 ? ¥ coordonnées de la destination 

1870 X 1 = I NT ( A X *END ( 1 ) +B X ) 

1880 Y1=INT ( AY#RND ( 1 ) +BY) 

1890 DX=X1~X0 s DY=Y1-Y0 

1900 IF <DX=0)+(DY=0) GOTO 1870 

1910 SX=SGN(DX) s SY=SGN (DY ) s DR=0 

1920 IF ABS (DX> <ABS (DY) GOTO 2000 

1930 * ¥ coordonn. points intermediaires 

1940 "¥ 1er cas 

1950 FOR Q=DEBUT TO ABS(DX)STEP PAS s* | 
1960 X=INT(XO+(Q*SX> ) s ? | 

1 970 Y= I NT < Y0+ ( ABS < Q * DY /D X > *S Y ) > s 7 | 

1980 GOSUB 2380 sNEXT Q s GOTO 2050: ’ | 

1990 $ 2eme cas 

2000 FOR Q=DEBUT TO ABS (DY) STEP PAS:’ | 
20 1 0 Y=INT ( YO + (Q* S Y ) ) s 81 | 

2020 X= I NT ( X0+ ( ABS ( Q*DX/DY ) *BX> ) s | 

2030 GOSUB 2380 s NEXT Q s” J 

2040 ’ $ 

2050 IF AR— 2 GOTO 2200 

2060 * ¥voi execute sans part i cul ar i te“| 
2070 XO-X s YO-Y s ECART~0 : ’ | 

2080 IF DR— 1 GOTO 1910 s ’ 4 4 vol dirige | 
2090 GOTO 1680 s "^nouvelle génération | 

2100 ’ - .. ■ ■■ . : __ j 

2110 ’ " ~ " 

2120 ’ $ a) tous les flocons détrui ts "j 
2130 : * b) temps imparti est atteint | 
2140 ’ c) 1 'arrêt a ete provoque | 

2 1 50 CURSOR 1 7 , 0 s PR I NT " " S s X 0= X s ’ | 

2 1 60 Y0= Y : X 1 = 1 B s Y 1 = 0 s DR=0 s p AS=2 s ’ | 
2170 AR=2 s MUS I C " R2 " s GOTO 1890s sortie | 

2180 ’ ■ ' . ■■■ ■ ■ . ■ ■ •■"■ ■■ ■ ■ ■ ■ : ■■ ■ ■■ ■■■ ■ 1 

2190 =• 

2200 CURSOR 18,0 s PR I NT " 5 s MUS I C " R7 " 

2210 ’ $ vol final de parade 1 

2220 CLJRSÜR 2 , 0 s PR I NT C C5 , 3 " HH" ? 


2230 CURSOR 35 , 0 s PR I NT C C5 , II " HH" ; 

2240 CURSOR 2,24 : PR I NT C 7 , 1 " |( K " s 
2250 CURSOR 35 , 24 s PR I NT C 7 , 3 " K K " 5 
2260 CURSOR 17,0 SPRINT" "5 

2270 FOR Q~ 1 TO 1500 sNEXT Q s AR=2 
2280 X—18 s Y-0 s GOSUB 2510 
2290 RESTÜRE 6900 s FOR Q=1 TO 5 s READ N 
2300 FOR K=1 TO N s READ X,Y s GOSUB 2510 
2310 NEXT K s IF <2=5 GOTO 2360 
2320 MIJSIÜ"R3" s CURSOR X , Y s PR INT" “ 

2330 XP=XSYP=Y s GOSUB 6160 s GOSUB 3940 
2340 MUS I C " R 5 " s CURSOR X P , YP : PR I NT " ,- 4 K " ï 
2350 MUS I C " R 3 " s CURSOR X P , YP : PR I NT " " S 

2360 NEXT Q s GOTO 4200 
2370 REM 

2380 * $ sous-progr. execution du vol H 

2390 IF X <1 THEN X=1 

2400 IF X >35 THEN X=35 

2410 IF Y< 1 THEN Y=1 

2420 IF Y >21 THEN Y=21 

2430 IF BA$= ,, N” GOTO 2480 

2440 IF (X>3> *(X< 33) GOTO 2480 

2450 IF (Y>7)*(YP>7) GOTO 2480 

2460 IF (Y< 6 )#(YF< 6 ) GOTO 2480 

2470 X = XP s Y=YP s RETURN 2070 

2480 IF T ( X , Y ) < >5 GOTO 2500 

2490 MUS IC" R 1 " s RETURN s ’ ¥ pos i t . i nter d i t 

2500 XP=X s YP=Y 

2510 CURSOR X , Y iRRrNT'^ TaBB ' 1 ; 

2520 IF AR>0 GOTO 2590 

2530 GOSUB 6000 : ’ ¥ 4 test flocon 

2540 IF BA$="N" GOTO 2570 

2550 GE T X$ s IF PEEK($5F)=32 GOTO 2580 

2560 GOTO 2590 

2570 IF T ( X , Y ) < = 1 GOTO 2590 


2580 

GOSUB 

2730 s 

’ ¥ 4s/pr. coups bâtons 

2590 

MUSIC 

"R2" 

SPRINT" E33£l"5 

2600 

MUSIC 

Il p;> 2 " 

sprint" /^.oaa" *, 

26 1 0 

MUSIC 

"R2" 

SPRINT" 63HB" ; 

2620 

IF AR= 

=1 RETURN 2150 


2630 IF AR— 2 RETURN 
2640 IF ECART— J. RETURN 2070 
2650 H1$=TI$ s GOSUB 5750 s ’ $ 4 temps 
2660 GOSUB 5870 s ’ ¥ 4 test t * 4 f- 
2670 IF DR--Ü GOTO 2690 
2680 XO=X :YO=Y s RETURN 1910 
-2690 PAS- 1 NT ( R ND ( 1 ) +2 - 5 ) 

2700 DEBUT=1 : RETURN 

2710 ’¥ fin s/p. execution du vol H 

2720 

2730 ’ ¥ 5/prog.coups de bâtons 1 

2740 GOSUB 6160 s •’ ¥ 4 s/pr. position 

2750 IF < (Y >3 ) * ( Y< 7 > ) + ( Y > 1 9 ) GOTO 2770 

2760 GOTO 2810: ’ $1 ’ ai seau ne mourra pas 

2770 FOR K=X TO X+2 

2780 IF T (K, Y) 04 GOTO 2800 

2790 C9=l ! ' l'oiseau va mourir 

2800 NEXT K 

2810 ’ ¥ balancement du bâton 

2820 ON POS GOTO 2830,2860,3070,3100 

2830 A 1=53531 : A2=53490 :A3=53451 

2840 A4=53449 s A5=53409 sBl=168 sB2=167 

2850 B3=160 :B4=169 : GOTO 2890 

2860 A 1=53563 : A2=53524 s A3=53483 

2870 A4=534B5 s A5=53445 :B1=169 :B2=160 

2880 B3=167 :B4=168 

2890 POKE A 1,0 s POKE A2,B1 

2900 POKE A2+2048, PB s POKE A3,B2 

2910 POKE A3+2Ü48, PB s IF C9=0 GOTO 2930 

2920 PR INT" GBB";seOTO 2940 

2930 PR I NT " /❖•sSaOEI" ü : MUS I C " +C2 " 

2940 POKE A3 , 0 s POKE A2,0 s POKE A4, 121 

2950 POKE A4+2Û48 , PB s POKE A5, 121 

2960 POKE A5+2048, PB s IF C9=0 GOTO 2990 

2970 GOSUB 3420 s’¥ 4 projection oiseau 

2980 MUS I C" +C 6 " s GOTO 3000 

2990 GOSUB 3620 s ’ ¥ 4 écart oiseau 

3000 POKE A5 , 0 s POKE A4,0 

3010 POKE A2,Bi : POKE A3,B2 

3020 POKE A2+2048, F’B s POKE A3+2048, PB 

3030 IF C9=0 PR INT " /*\ 63313" 5 

3040 MUSIC"R2" s POKE A3,0 s POKE A2,B3 

3050 POKE A2+2048, PB s POKE A1,B4 

3060 GOTO 3740 s ’ ¥ 

3070 A 1=54 175 :A2=54176 s A3=54095 
3080 A4 =54096 s A5=54055 : A6=54094 
3090 Bl = 168 s B2= 169 :B3=160 : GOTO 3130 
3100 A 1=54 199 :A2=54198 :A3=54119 
3110 A4 =54118 SA5=54079 sA6=54120 
3120 B 1 = 1 69 s B2=168 :B3=167 


3 1 30 I F ( Y=2 1 > * < X >4 ) THEN EFF= 1 
3140 IF <Y=21)*<X=4) THEN EFF-4 
3 1 50 IF (Y=20) * (X >5 ) THEN EFF=2 
3160 IF <Y=20) * < X<=5) THEN EFF=3 
3170 PQKE A2,0 s ROKE A 1,0 
3 1 80 I F ( C9= 1 ) * < EFF~ 1 ) PR 1 NT » E333 » ; 

3190 POKE A3, 202 s POKE A4,B1 
3200 POKE A3+2048, P*E s POKE A4+2048,PB 
32 1 0 I F ( C9= 1 > * < EFF--2 ) PR I NT " carars 11 3 - 

GOTO 3230 

3220 IF C9=0 PRINT' 1 /4KGHB ,, 5 
3230 MUSIC"+C2" s POKE A4, 0 
3240 POKE A5, 121 s PQKE A5+2048,PB 
3250 IF ( C9= 1 ) * ( EFF=3 ) PR INT" ffig 11 ; : 

GOTO 3270 

3260 IF G 9=0 GÜ3UB 3620 ï ’ ¥->ecart oiseau 
3270 POKE A5 , 0 s POKE A6,B2 
3280 PQKE A6+2048, PB 

3290 IF (C9=l ) * CEFF=4> PR INT" (333" 5 s 

GOTO 3310 

3300 I F C9=0 PR INT" /*■-, 033“ ï : MUS I C " R3 " s 
GOTO 3330 

3310 GOSUB 3420 • ’ ¥ -> projection oiseau 
3320 MUSIC"+C6" 

3330 POKE A6 , 0 ï POKE A5, 121 
3340 POKE A5+2048, PB ! MUSIC"R2" 

3350 IF C9=0 PRINT"~-»- tagG » ï 
3360 POKE A5 , 0 s POKE A4,B1 
3370 POKE A4+2048, F‘Ef s MUS IC" R2" 

3380 IF C9=0 PR INT" ,*, ea OR " : 

3390 POKE A4 , 0 : POKE A3,0 
3400 POKE A 1,202 : POKE A2,B3 
3410 GOTO 3740 

3420 * ¥ l’oiseau est projeté 

3430 ON PQS GOTO 3440,3440,3450,3500 

3440 Y=Y-2 .-GOTO 3550 

3450 IF X >6 GOTO 3490 

3460 X = X-3 s IF X< 1 THEN X=1 

3470 IF X >4 THEN X=4 

3480 GOTO 3550 

3490 X = X~2 : Y=Y-2 s GOTO 3550 

3500 IF X<31 GOTO 3540 

3510 X=X+4 s IF X<32 THEN X=32 

3520 IF X >35 THEN X=35 

3530 GOTO 3550 

3540 X=X+2 : Y=Y--2 

3550 ON POS GOTO 3560,3580,3560,3580 
3560 CURSOR X,Y g PR INT»--*, casa » g 
3570 GOTO 3590 

3580 CURSOR X,Y : PRINT" k*TSHE m 5 
3590 CASSE=CASSE+ 1 
3600 RETURN ! ’ ¥ 

36 1 0 ’ > 

3620 ’ V L’ oi seau fai t un écart 
3630 PR INT" "ï 

3640 ON POS GOTO 3650,3670,3690,3690 
3650 X=X+2 : IF SX=--1 THEN ECART» 1 
3660 GOTO 3700 

3670 X = X--2 : IF SX = 1 THEN ECART» 1 
3680 GOTO 3700 

3690 Y=Y-2 ï IF SY=1 THEN ECART» 1 
3700 CURSOR X,Y ; RR T NT » “^ ESBE » g 
3710 MU8IC"+C2" 

3720 RETURN ï ’ ¥ 

3730 ’ 

o. 740 GOSUB 6UUO : * ¥ ~> test flocon s 

3750 IF C9= 1 GOTO 3790 

3760 PR I NT " ""*"^333" ; ï MUS I C " R2 " 

3770 PR I MT " /4KBEB" 5 - MUS I C " R 1 " 

3780 PRINT" BEE » g : RETURN 

3790 *¥ l’oiseau crie et disparait 

3800 FOR K=1 Tü 4 ï MUS IC " D3" 

3810 PRINT" S 33B"$ ï MUS IC "RI" 

3820 PR I NT " /*\ Eïœ" S s MUS IC "R 1 " 

3830 PRINT" B33ÏI3I"; ï MUS IC "~D3" 

3840 PRINT"*^-T3EB"5 sNEXT K 
3850 MUSIC"R2" g FOR K=1 Tü 3 
3860 PR I NT " /*TaB3" 5 : MUS I C " #C3 " 

3870 PR I NT " EBE » ;; s MUS I C " C3 " 

3880 NEXT K ï FOR K=1 TO 3 
3890 PRINT"/ -TasaS”? s MUS IC "RI" 

3900 PRINT"”" : MUS IC" RI» 

39 1 0 PR I NT " / S3 E3E3" S : MUS I C " R 1 " 

3920 PRINT" sasasa»? SNEXT l< BMUSIC»R7" 

3930 ;, t l’enfant crie victoire 

3940 ON POS GOTO 4010,4040,3950,3980 

3950 CURSOR 8 , 23 s PR I NT C C2 , 3 CHR$ <101) 3 

3960 X=B SY=23 :A$=“ |ffil 11 

3970 B*="S3 E!»+CHR*<181) : GOTO 4060 


3980 CURSOR 30 , 23 ï PR I NT C C 2 , 3 CHR* (182) 
3990 X=30 g Y» 23 : A*= " Sjjjl " 

4000 B*="B Ï3œ"+CHR$<182) s GOTO 4060 
40 1 0 X =3 s Y=7 g A*= " Mas» +CHR3» <181, 18, 1 80 ) 
4020 JB*=»B BEES" +CHR*< 188, 17, 182) 

4030 GOTO 4060 

4040 X =35 : Y=7 g Af>= " fij" +CHR<4> ( 1 82 ,18, 20 , 
20, 188) 

4050 B*= " B fiü" +CHRS» < 1 80 ,17, 20 ,20,181) 
4060 FOR K= 1 TO 3 g CURSOR X , Y 
407 0 PR I NT CC2, 3 A4»; g MUS IC" +F6 " 

4080 PR INTCC2, 3 B* ; g MUS I C " +D7 " g NE X T K 
4090 ON POS GOTO 4130,4130,4100,4110 
4 1 00 A*=CHR$ ( 1 88 ) g GOTO 4 1 20 
4110 A4»=CHR4> < 1 80 ) 

4 1 20 CURSOR X , Y s PR I NT CC2, 3 A* ; 

4130 IF AR=Û GOTO 4160 
4140 IF AR= 1 THEN RETURN 2220 
4150 IF AR=2 THEN RETURN 
4160 MUS IC "R7" g MUS IC "R7" 

4170 C9=0 g N 9 =20 s DR=0 g RETURN 1620 
418 O ' ¥ fin b o u b - p r o g „ c o u p s d e ta a t ons B 
4190 ’ 

4200 *¥ départ des enfants - B 

4210 MUS IC "R7 " g MUS IC "R7" 

4220 CURSOR 1 7 , 0 g PR I NT C C5 , 3 " mmmmm » - 
4 230 TEMPO 7 g MUS I C " R5 " : X 0=8 g X 1 = 1 4 
4240 X 2= 1 5 g X 3= 1 6 s X 4= 1 8 s GR= 1 67 s PAS» 1 
4250 E=1 g Y=23 g GOSUB 4260 g GOTO 4440 
4260 : ' ¥ lancer des bâtons d’en bas 
4270 POKE FNV < XO ) , 52 s MUS I C " R5 " 

4280 FOR X=XO+E Tü XI BTEP PAS 
4 2 9 0 M U S I C ' ■ R 0 ‘ 1 : P 0 K E F N V < X - E ) , 0 
4300 POKE FNV ( X ) +2048, PB 
l \ 3 ! 0 POKE FNV < X ) . 52 g NE X T X 
4320 MUS I C " R 5 " g POKE FNV ( X 1 ) , 0 
4330 Y =22 POKE FNV(X2> +2048, PB 
4340 POKE FNV ( X 2 ) , 1 2 1 g MUS I C " R7 " 

4350 POKE FNV < X2> , 0 

4360 Y =2 3 g POKE FNV ( X3 ) +2048 , PB 

43 70 POKE FNV < X3 ) , 52 g MUS I C " R5 " 

4380 FOR X=X3+E TO X4 STEP PAS 
4390 MUS IC "RO" g POKE FNV(X~E),0 
4400 POKE FNV ( X ) +2048, PB 
44 1 O POKE FNV < X ) , 52 : NEXT X 
4420 MUS I C " R5 " g POKE FNV ( X 4 ) , GR 
4430 RETURN g ’ ¥ 

4440 X0=30 g X 1=24 g X 2=23 g X 3=22 
4450 X4=20 g GR= 1 60 sPAS=~l :E=--1 
4460 GÜSIJB 4260 g FOR X=9 Tü 13 
4470 T ( X , 23 ) =0 g T < 38 - X , 23 ) =0 : NE X T X 
4 4 8 0 ’ ¥ o u v e r t u r e p o r t es d ’ e n b a. b 
4490 MUS IC "ES" 

4500 CURSOR 0,23 s PR INT C 7, 3" fijL," g 
45 1 0 CURSOR 37 , 22 g PR I NT L 7 , 3 " JJJÎ " ; 

4520 ’ ¥ départ enfants d’en bas 
4530 RE STORE 7010 g TEMPO 6 
4540 CHANT =2 g MM=55 s MUS=0 
4550 Y =23 ! N =7 g GÜSIJB 4580 
4560 N= 15 g GOSUB 4580 
4570 GOSUB 5700 g GOTO 4690 
4580 AA=FMV(N) : BA=AA+38~2*N s’W 

4590 FOR X=N— 1 TO 0 STEP-.t g GOSUB 5630 

4600 AM=FNV ( X ) g BM=AM+38-2* X 

4610 IF T ( X , 23) =1 THEN AM=AM~40 

4620 IF T ( 38- X , 23 ) = 1 THEN BM=BM-40 

4630 POKE AA , 0 g POKE BA,0 

4640 POKE AM, 202 g POKE AM+2048, PE 

4650 POKE BM, 202 g POKE BM+2048,PE 

4660 AA=AM : BA=BM sNEXT X s GOSUB 5630 

4670 POKE 54168,0 s POKE 54206,0 

4680 GOSUB 5630 s RETURN s ’ ¥ 

4690 ’¥ fermeture portes d’en bas 
4700 CURSOR 1,22 s PR INT 117, 3" USES I" ü 
4710 CURSOR 38,23 s PRINTC7, 3 n | EHU » ; 

4720 TEMPO 7 :MUSIC"R7" 

4730 ’¥ lanc.batons -dep. enfant en haut 
4740 CURSOR 3,7 g PRINTCC2, 3 " i£Q| U3I" > 
4750 X=2 s A0=53488 : Al =53489 : A2=53490 
4760 B=63 s E=204 :A$=" GBflül" 

4770 GOSUB 4780 ! GOTO 4870 

4780 MUSIC"R7" : FOR Y=6 TO 21 s MUSIC"R0" 

4790 CURSOR. X, Y :PRINTCC2,3 A*; 

4800 NEXT Y sMUSIC"R7" s POKE A2+2048,PE 
4810 POKE A 1 , 0 s PQKE A2,E sMUSIC"E9" 

4820 PDKE A2, 0 s POKE A 1,202 sMUSIC"E7" 
4830 POKE A 1 , 0 s POKE AO, 202 ïMUSIC"R7" 
4840 POKE AO , 0 :MUSIC»R7" s POKE A 1+40,0 
4850 POKE A0+2G48 , PP g POKE AO, B 


4860 MUS I C " R5 " : RETURN : ? 9 

4870 CURSOR 33 -, 7 s PR I NT C C2 , IP 1 fcii IfiJC I " ? 

4880 X=36 s A0=33526 : A 1=53525 s A2=53524 
4890 B=55 =E=203:A*=" Um !" a GOSUB 4780 
4900 •' 9 RetablisBement.de la neige 
4910 S(l)=l 07 :S(2)= 1 03 s S ( 3 >=46sS<4)= 1 07 
4920 FOR V =23 TO L STEP-1 s FOR K=1 TO 4 
4930 A = U ( K ? Y) s I F Y < 2 2 G 0 T 0 4 9 6 O 
4940 IF <A=54170> + (A=542Û4> GOTO 4970 
4950 I F ( A=54 1 30 ) + ( A=54 164) GÜT G 49 70 
4 9 é> 0 P 0 K E A + 2 0 4 8 ? P N - P 0 K E A * S ( K > 

4970 NEXT K : NEXT Y 

49B0 ? 9 Départ du décor 

4990 MUS I C •' R 7 " s CONSOLE 1 , 24 ? 1 * 37 

5000 CURSOR 1,24 : PR INT 

5010 Y =24 s TEMPO 6 s FOR X=1 TO 3/ 

5020 A=FNV(X) : POKE A h- 20 4 8 , P N 

5030 POKE A, 67 s MUS IC" RO" s NEXT X 

5040 CONSOLE 1 , 23 , 1 , 37 

5050 RESTGRE 7220 : TEMPO 5 

5060 MM= 1 0 : CHANT = 4 s MUS = O 

5070 FOR R = 1 TO 26 : GOSUB 5630 

5080 PR INT s NEXT R s GOSUB 5630 

5090 Y* 10 : GOSUB 5570 : 9 4 croix 

5100 GOSUB 5700 s ” ¥ 4 Achevt musique 

5.110 ” 9 Effacement de l'écran 

5120 X 1 =0 :X2=38 :Y1=Û : Y2=24 s Y=0 

5130 FOR Q=1 TO 12 : FOR X = X1 TO X2 

5 1 40 POKE FNV C X > +2048 , PIM : POKE FNV C X ) s 67 

5150 NEXT X ! Y l=Yi+l s X=X2 

5160 FOR Y=Y1 TO Y2 

5 1 70 POKE FNV ( X ) +2048 , PN : POKE FNV ( X ) , 6 / 

5180 NEXT Y : X2=X2-1 : Y=Y2 

5190 FOR X=X2 TO XI STEP -1 

5200 POKE FNV < X) +2048;. PIM: POKE FNV(X), 6 7 

5210 NEXT X :Y2=Y2~1 : X=X 1 

5220 FOR Y=Y2 TO Y1 STEP-1 

5230 POKE FNV ( X ) +2048 , PN : POKE FNV ( X ) , 67 

5240 NEXT Y :X1=X1+1 :Y=Y1 : NEXT Q:Y=12 

5250 FOR X = 1 2 TO 27 : POKE FNV ( X ) +2048 , PIM 

5260 POKE FNV (X), 67 s NEXT X 

5270 ? 9 Affichage des résultats 

5280 SEC= V AL ( R I GHT* < H 1 * , 2 ) ) 

5290 M I N= 1 NT ( VAL ( R I GHT* ( H 1 * , 4 ) ) / 1 00 ) 

5300 MUS IC "R5" : CONSOLE 
53 1 0 COLOR ? ? C4 , : CLS 

5320 CURSOR 2,10 s IF MIN=0 GOTO 5340 
5330 A$=" Au bout de "+STR$ (MIN) +" mn 
"+STR$ (SEC) +" sec" : GOTO 5350 
5340 A$=" Au bout de " +STR$ (SEC) + " sec" 

5350 GOSUB 5360 : GOTO 5400 

5360 FOR Q-- 1 TO LEN ( A* ) : B*=M I D* < A* , Q , 1 ) 

5370 PR INT B$? s IF B$=" " GOTO 5390 
5380 MUS IC "RO" 

5390 NEXT B : PR INT : RETURN 
5400 CURSOR 2,11 

5410 A$=" les oiseaux ont détruit" 

5420 GOSUB 5360 : CURSOR 2, 12 

5430 A*=" "+STR* (NOMBRE) +" flocons" 

5440 GOSUB 5360 : IF CASSE=0 GOTO 5480 
5450 Les enfants ont tue "+STR$ (CASSE) 

+" oiseau" 

5460 IF CASSE >1 THEN A*=A*+"x" 

5470 CURSOR 2,14 : GOSUB 5360 ".GOTO 5520 
5480 A^="f.tt Les enfants n’ont pas réussi" 
5490 CURSOR 2,14 : GOSUB 5360 
5500 A$=" a tuer un oiseau" 

5510 CURSOR 2,15 : GOSUB 5360 
5520 FOR 0=1 T G 2000 : NEXT 0. 

5530 IF C*="N" GOTO 5550 
5540 COLOR?, 0,5 : CLS 
5550 CURSOR 1 , 23 : END 

5560 ’ «f Zone sous-programmes 

5 5 7 0 ’ 9 s o u s - p r o g r a m m e c r o i x H 

5580 CURSOR 1 9 , Y+ 1 : PR I NT C C6 ? 'J " * " ? 

5590 GOSUB 5630 : PR I NT C C6 , Il " W * * " 5 
5600 GOSUB 5630 : PRINTLC6, 3 "UEB* " 5 

5610 GOSUB 5630 : RETURN : ’ 9 fin — ■ 

■5620 V 

5630 ’ 9 sous programme musi que - ~ H • 

5640 I F ( IT$= " N " ) * ( CHANT < >2 ) RETURN 
5650 IF M*="N" THEN MUSIC"R3" : RETURN 
5660 IF MUS = MM THEN MUS=0 : ON CHANT 
RE STORE 6960 ? 70 1 0 ? 7 1 1 0 , 7220 

5670 READ M$ : MUS IC M$ ïMUS=MUS+1 

5630 RETURN s 3 9 fin s /pr. musique - 1 

5690 ’ 

5700 •"9 sous-progr achevt musique : ü 
5710 IF <M$="N" ) + (MUS-MM) RETURN 


S 720 FOR R=MUS+1 TO MM : GOSUB 5630 

5730 NEXT R ."RETURN s '9 fin 1 

5740 •’ 

5750 '■ 9 test sur le temps - ■ 

5 7 6 0 H 1 = V A L . < H 1 TJ s I F H 1 > :: = NM I IM R E T U R N 2 1 5 0 
5 7 7 0 I F H 1 - H 0 < 3 ' !” H E IM R E T U R IM 
5730 CURSOR 17,0 : IF HL-H0>=5 GOTO 5300 
5790 PR I NT T. 7,01" "5* GOTO 5850 

5300 I F R I G HT T ( H 1 T ? 1 ) = " 5 " BOT 0 5320 
58 1 0 I F R I GH T T ( H 1 T , 1 ) < > " O " GOTO 5850 
5820 PR I NT C 7 ? 0 1 M I DT < H 1 T ? 3 ? 2 ) 

5830 PR I NT I” 7 , 0 "1 11 "5 

5340 PR I NT C 7 ? 0 '.'J M I DT < H 1 T , 5 , 2 ) ? : H O"- H 1 

5850 CURSOR X ? Y : RETURN s ’ 9 f i n - il 

5860 

5870 ‘9 Test arrêt et vol dirige ü 

5830 G ET XT : IF PEE K < TSF ) < >65 GUI ü 59üü 
5890 PR I NT " EST 5 s RETURN 2 1 50 

5900 DR= 1 : ON PEEK(T5F) .1.6 GO I 0 bS 1 20, 

5930 ? 5950 , 5960 
5 9 1. 0 D R = O “. R E T U R I M 
5920 DY-~8 : D X = 1 : GOTO 5940 
5930 DY=~“8 s DX= 1 

5940 DEBUTAI NT (RND ( 1 ) *2+1 ) : RETURN 

5 9 50 D X = 1 0 : D Y = 1 : G 0 T 0 5 9 7 0 
5960 DX= •10 :DY=1 
59 7 0 D E B U T = 1 N T < R IMD ( 1 ) * 2 + 2 ) 

5980 RETURN : 9 f in i 


6000 ’ 9 5 -prog.test presence flocon - 1 
6010 FOR K X = X TO X+2 :W=T(KX?Y) 

6 0 2 0 I F ( W < > 1 > * (W < > 3 ) G 0 T 0 6 1 3 0 

6030 T (KX, Y) =T (KX, Y) -1 

6040 MUSIC"—F2" : N0MBRE=N0MBRE+1 

6 O 5 O Q T = 1 SX Q = K. X : Y Q = Y : G 0 S U B 6 1 8 0 

6060 QT=0 : QUART=PS : I ( QUART ) = ï ( QUAR T' ) - 1 

6070 ON QUART GOTO 6080, 6090? 6100? 61 10 

6080 CURSOR 2,0 : GOTO 6120 

6090 CURSOR 35,0 : GOTO 6120 

6 1 0 0 C U R B ü R 2 ? 2 4 : G 0 '1 0 6 1. 2 U 

6110 CURSOR 35,24 

6 1 20 PR I NT C 7 ? 0 II US I NG " ## " ? I ( QUART > ? 
6130 NEXT KX : IF NGMBRE=84 THEN AR--1 
6140 CURSOR X ? Y : RETURN : 9 fin - 1 


6 1 5 U 
6 1 60 
6170 
6 1 80 
6 1 90 
6200 
6210 
6220 
6230 
6240 
6 25 U 
6260 
6270 
6280 
6290 
6300 
63 1 0 
6320 
6330 
6340 
6350 
6360 
6370 
6380 
6390 
6400 
6410 
6420 
6430 
6440 
6450 
6460 
64 /O 
6480 
'6490 
6500 
6510 
6520 
65.30 
6540 
6550 
6560 
6 5 '7 0 
6500 
659 U 


ver s 


9 de f i n.po s i t . s u r q u a r t e c r a n ü 

XQ=X :YQ=Y 

I F ( XQ< 1 9 ) * ( YQ< 1 1 ) THEN PS= 1 
I F ( XQ >= 1 9 ) * < YQ< 1 1 ) THEN PS=2 
I F ( X Q< 1 9 ) * ( YQ >= 1 1 > THEN PS=3 
I F ( X Q >= 19)*( YQ >-- 1. 1 ) THEN PS=4 
IF QT = 1 RETURN 6060 

POS=PS : RETURN : 9 f i n “* 

•'*999999999999999 Zone des data 

DATA" Un sapin sous La nei ge ...*'*- */_ 

D A T A " U n o i s e a u d e t r u i s a n t 1 e s f I o c o n s - « - ^ 

Q u a t r e e n f a n t s a r m e s. d e b a t on s " 
et qui chassent l'oiseau .»« x\/ 

Et? si on le desire? la musique" 
de chants de Noël - . . \" 

Au bout de quelques secondes" 
i • oiseau revi ent toujours" 
le quart, ci écran ou les flocon s" 
sont le Plus denses" 

(Le nombre de flocons est affiche)" 
(dans chaque angle de l’écran)" 

(Les flocons des deux lignes près)" 

(du soi sont hors ,jeu)\" 

Deux possibilités sont offertes s /" 
a u b i e n n e p as i n te rve n i r / " 

- au bien guider le vol de l’oiseau" 
au moyen des touches f t F ->/ " 

Dans ce cas? on peut s /" 

-■ soit laisser les enfants agir/ 1 
— soi t provoquer les coups de" 
bâton au moyen de la barre" 
d ’ espacement \ " 

donc jouer avec les; enfants 11 
ai seau ? ou b i en avec i ’ oi seau " 
contre les enfantsX" 

Pour la première fois" 
il est. conseille de commencer par" 
accorder 4 minutes de .jeu et de" 
laisser le programme se dérouler" 
sans intervenir 
Le .j eu s’ arrête s ./ " 

-■soit au bout du temps imparti" 

( 1 e t e m p s e s t d e c o ni p t e a p a r t i r " 
d e 3. ’ a r r i. v e e d e 1 ’ o i. se a u ) / " 


DATA" 

DATA " 

DATA" 

DATA " 

DATA" 

DATA" 

DATA " 

DATA" 

DATA" 

DATA" 

DATA" 

DATA " 

DATA " 

DATA " 

DATA" 

DATA " 

DATA" 

DATA" 

DATA" 

DATA" 

DATA " 

DATA " 

DATA" 

DATA " 

DATA " 

DATA" 

DATA" 

DATA" 

DATA" 

DATA " 

DATA" 

DATA" 

DATA" 


On peut:. 

contre 1 



6600 
66 1 0 
6620 
6630 
6640 
6650 
6660 
6670 
6680 
6690 
6700 
6710 
6720 
6730 
6740 
6750 
6760 
6770 
6780 
6790 
6800 
6810 
6820 
6830 
6840 
6850 
6860 
6870 
6880 
6890 
6900 
69 1 0 
6920 

6930 


6940 

6950 
6 9 60 

6970 


6980 

6990 

7000 
70 1 0 
7020 
7030 

7040 

7050 

7060 

7070 

7080 
7090 
7 1 00 
7 1 1 0 

7120 


7130 

7 1 40 

7150 

7160 

7170 

7 1 80 
7 1 90 
7200 

72 1 0 
7220 

7240 

7250 

7260 

7270 

7280 


DATA" soit quand tous les flocon 

DATA" sont, détruits (sauf ceux d 

DATA" d e » -t k 1 :i. g n e s p r e s d u s o 1 ) / 1 ’ 

DATA" - soit quand on appuie? sur 1 

DATA" t o u c h e d e 1 a 1 e 1 1 r e A \ ' ' 

V pour marquage 5 (protégé) Ü 

DATA 4 j 1 3 23 4 .» 36 , 37., 5 , 1 , 3 , 5 , 35 , 37 
DATA 6 , 1 , 4,6, 34 ,37,7,1,3,7, 33 , 3 7 
DATA 1 2 , 1 B , 20 , 1 3 ,17, 20 , 1 4 , 1 6 , 2 1 
DATA 15,16,21,16, 1 5 , 22 ,17,15, 22 
DATA 1 8 ,14, 23 , 1 9 , 1 4 , 23 

DATA 20 ,6,8, 20 ,13, 24 , 20 , 30 , 32 
DATA 2 1,6,8,21,1 3 , 24 , 2 1 , 30 , 32 
DATA 22 ,1,1, 22 , 6 , 8 ,22,14, 24 
DATA 22 , 30 , 32 , 22 , 37 , 37 
DATA 23 ,1,2, 23 , 6,8, 23 ,14, 24 
DATA 23 , 30 , 32 , 23 , 36 , 37 

•’ * pour marquage 2 (attire) ü 

DATA 2,1,2, 2 , 33 , 37 ,3,1, 4 , 3 , 32 , 37 
D A T A 4 , ■-.< ,5,4, 1 , -.:>5 , 5 , 4 , 6 , 5 , 30 , 34 

DATA 6 , 5 , 6 , 6 , 30 , 33 , 7 , 4 , 6 , 7 , 30 , 32 , 8 
DATA 1,6,8, 30 , 37 ,18, 5 ,9,18, 28 , 33 
DATA 19,4,1 0 ,19, 27 , 34 , 20 ,2,5, 20 , 9 
DATA 1 0 , 20 , 26 , 29 , 20 , 33 , 34 ,21, 2 , 5 
DATA 2 1,9, 1 O , 2 1 , 26 , 29 , 2 1 , 33 , 34 
" V marquage 4 (attire et tue) — 1 
DATA 4, 1, 2 , 4 , 36 , 37 ,5, 1,3,5, 35 , 37 
DATA 6 , , o , 2 O , , 8 , 2 O , O , ô 2 , 21,6,8 

DATA 21,30*32 

? ¥ Eléments du vol de parade ü 

DATA 6, 18, 1, 16,2, 13,3, 11,4,9,5,7,6 
DATA 7, 7, 7, 7, 9, 7, 11,7, 13,7, 15,6, 17, 

DATA 11,8, 18, 10, 17, 12, 16, 14, 15, 15, 

13, 17, 1 1,19, 10,21 , 9, 23,8, 26, 7,29-, 6 
DATA 7 , 29 , 7 , 29 , 9 , 29 ,11, 29 , 1 3 , 29 , 

15,30, 17,30, 19 

DATA 1 1 , 29 ,17, 27 ,15, 26 ,13, 25 ,11, 
24,9,22,7,21,5, 19,3, 18, 1, 18,0, 18, û 

’ V chant 1 Mon beau sapin - ü 

DATA ~A5D , D3R0D7 , E5#F , #F3R0#F7R2 , D3 
E#F66, #C6ED7R2 

DATA --A5D , D3R0D7 , E5#F , #F3R0#F7R2 , D3 
E # F G 6 , # 0 6 E D 7 R 2 

DATA R2A3R0A5 , 4F3D7R0 , A3R0A5 , G3R0G7 
R2, G3RO05, E3A7, G3RÜG5, #F3R0#F7R7 
DATA — A5D , D3R0D7 , E5#F , #F3R0#F7E2 , D3 
E#FG6 , #C6ED7R7 

V chant 2 Les Roi s mages - H 

DATA E 1 R0E5 , B5 , E5 

DAT A #F 1 G 4 , #F 1 84 , E 1 B5 

DATA G 1 A 5 , B5 , +C 3B3 , A3G , #F5 , B5 , A3G , 

#F3 , G3E5 , ~B5 , E5 

DATA #F 1 G 4 , #F 1 G4 , E 1 B5 

DATA G 1 A 5 , B5 , +C3B , A3G , (35 , #F5 , E5 

DATA R2#F 1 R0#F5 h R0#F5, G5 , #F4E 1 , #F5 s 

G 5 , A 5 R 3 

DATA G 1 A 5 , B5 , E5 , #F3G , A3G , #F3E , E0E3 
#D-B3R3 

DATA #F 1 R0#F5 , R0#F5 , G5 , #F4E 1 , #F5 , 

DATA R2G 1 A5 , B5 , +C3B , A3G , R0G5 , #F5 , 

' V chant 3 Vive le vent — -- H 

DATA 03 , G3 , G5 , G3 , G3 , G5 , 83 , #A' : - , #07 , 

F 3 1 (35 R 2 

D A T A # G 3 , # G 3 , # G 4 , # A 1 , # G 3 , G 3 , G 3 , G 3 , 

G 3 , F 3 , F 3 , G 3 , F3R2 

DATA #A5 , 03 , 03 , G5 , G3 , G3 , 05 , G3 , #A3 , 
#D3,F3,G5R2 

D A T A # G 3 , # G 3 , # G 4 , # A 1 , # G 3 , G 3 , G 3 , G 3 , 
#A3,#A3, #G3 , F 3 , #D5R2 

D A T A •• - # A 3 , G 3 , F 3 , # D 3 , # A 5 R 2 

DATA -#A3 , -#A3 , G3 , F3 , #D3 , C3 , C3R2 
DATA C3 , C3 , #03 , G3 , F3 , #A4 , #A 1 , #A3 , 

#A3 , +C3 , #A3 , #03 , F3 , G5R2 
DATA -#A3 , ~#A3 , G3 , F3 , #D3 , -#A5R2 
DATA -#A3 , -#A3 , 03 , F3 , #D3 , C5R2 
DATA C3 , C3 , #03 , 63 , F3 , #A4 , #A 1 , #A3 , 

#A3 , + C3 , #A3 , #03 , F3 , #D3 , R2#A5R3 

# chant 4 Douce nuit ü 

DATA E4#F1E3#C6, E4#F1E3#C6 

DATA B5R0B5#G6, A5R0A3E6 

DATA # F 5 R* O # F 3 A 4 # G 1 #F3 , E4#F2E3#C6 

DATA # F 5 R O # F 3 A 4 # Ü 1 #F3 , E4#F 1 E3#C6 

DATA B 5 E O B 3 ■+• D 3 B # 6 A 6 ■+• # 0 6 

DATA A 3 E # C E D -■ B - A 6 R 7 

7 V fin des chants IH 



LES TOURS DE HANOI 


La résolution des Tours de Hanoi, problème vieux comme le monde, a 
déjà été la cause de nombreuses méningites dans le monde des pro- 
grammeurs. Les solutions trouvées ont été construites autour de lan- 
gages très structurés (PASCAL, Langage C, etc.). Bien plus rares sont 


les solutions en BASIC puisqu'elles font intervenir des notions de récur- 
sivité où ce dernier pas très à l'aise. 

Cette version permet à votre MZ 800 de vous donner les solutions pour 
une pile de départ de 3 à 20 disques. La gestion graphique des déplace- 
ments en 16 couleurs implique la présence de l'extension graphique 
vidéo. Vous pouvez obtenir un déplacement rapide ou lent des disques 
en utilisant la barre d'ESPACE. 

Attention toutefois : la résolution du problème avec 20 disques au départ 
demande 1 048 575 déplacements (2 1 20-1), soit environ 145 jours 
en version lente et 5 jours en version rapide... Patience... 

S. B. 


10 GOSUB "INIT" 

20 GOS’ ? B "PRESENT" , 

25 GOSUB "JEU" 

30 END 

200 LABEL"INIT" 

210 INIT" CRT : M2 " : PA LO , 3 : Z = - 1 
220 DIMT ( 3 , 20 ) ,P(3,20) 

230 DIMB(4) ,C(100) ,D(100) ,E(1ÛÛ) 

290 RETURN 

300 LABEL " PRESENT " 

310 CURSQR1 1 , 1 2 : PRINT"LES TOURS DE HANOI" 

320 LINE 89,10b, 230,1 05 . # „ 

330 CURSOR1 8,24: PRINT [13] "Mode d’emploi ? (O/NJ ; 

340 GET RE$ 

350 IF RE$="N"THEN 450 
360 IF RE$<> "0"THEN 340 
370 CLS . 

380 PRINT : PRINT" Il s/ agit d’uri jeu de reflexion aux 
390 PRINT"regles très simples 

400 PRINT" Des disques de tailles differentes 
410 PRINT " sont empiles, du plus grand au plus" 

420 PRINT"peti t sur l’axe de gauche, deux autres" 

430 PRINT"axes sont vides : Celui du centre et" 

432 PRINT"celui de droite. Il suffit, tout sim-" 

434 PRINT"plement , par déplacements des disques" 

436 PRINT"d ’ uri axe sur un autre, de reconstituer" 

438 PRINT"cette pile, dans le meme ordre, sur" 

440 PRINT"! ’ axe de droite. 

442 PRINT" Une seule restriction : Tout disque" 

444 PRINT "déplacé ne doit pas etre pose sur un" 

446 PRINT "disque plus petit." 

450 CURSORÛ ,16: INPUT"NQMBRE DE DISQUES ? (20 maxi.) : " ; N 
455 RETURN 
460 LABEL" JEU" 

470 P=N : GOSUB" COULEUR DISQUES" 

490 M =• 0 : B 1 1 ) =-1 :B(2) = N + 1 : B ( 3 ) =N + 1 
520 GOSUB "DISQUES" :GOSUB "AFFICH." 

530 M=M+1 

540 C ( 1 ) -N : D ( 1 ) = 1 : E ( 1 ) = 3 
570 GOSUB 730 

576 CURSORÛ , 2 : INPUT" J’ai termine, on recommence ? (O/N) : ; RE$ 

580 IF RE'$ = "0"THEN RUN 
585 CLS : END 

5 90 LABEL"DISOUES" :PALÛ , 8 : PAINT I 3 ] 0 , 0 
600 H=175-(N*6)-7: P -H- 1 0 

610 F0RI=53T0265STEP1 06 

6 20 LINE 11 il, 17 5,1, H, 1 + 6, H, 1 + 6, 17 5,1, 175 
630 PAINT 113)1 + 1, H+ 1,1 

640 NEXT 

680 LINE 11 |0 , 1 7 4, 3 1 9, 1 7 4,31 9 , 1 99,0,1 99,0,1 7 4 

682 PAINT{13]1, 176,1 

683 J=~l 20 

684 FORI-0TO319STEP6: J-JtlÛ 

685 LINE [1] 1,174, J, 19 9: NEXT 

686 FORI-1 78TÜ200STEP4 

687 LINEllJO, 1,319,1 

688 NEXT 
690 A=8+N* 2 



695 RESTORE 
7ÛÛ FÛRI=1TQN 
705 READ CL ' 

710 L-l 7 4-1* 6 _ r c r a i 

715 LINE [2|56-A,L,56+A,L f 56+A,L+5,56-Â,L+5,56-A,L 
720 PAINT[CLl57-A,L+l,2 

jlflliilIllfilllBBillIIIiffliflffllfllllSilllfflîfflSfflffliiflllllfflillfflllfffliflfflililliiffiil 

724 WAIT 300 

727 TI$=" 000000 " 

728 RETURN 

800 GOSUB730 

830 G=E(M) :L=D(M) :8{G)=B(G)-1 

850 T (Gfô (G) ) *T (L,B (L) ) 

851 F(G,B(G))«F(L,B(L)) 

856 X=56+( (L-l)*106) -T IL, B(L) ) 

857 Y=H-1+(B(L)*6) 

873 U=T (L ,B (L) ) :Q=F(L,B(L) ) 

876 V=56+ ( ( G— 1 ) *1Q6)-T(L,B(L) ) 

877 W=H+(B(G)*6) 

885 GOSUB "DEPL" 

887 GOSUB" AFFICH . " 

900 B (L) =B (L) +1 
930 M=M+1 

940 D (M) =6-D (M-l ) -E (M-l ) 

950 C(M)=C(M-1) -1:E(M)-E(M~1) 

970 GOSUB730 

1000 JM-M- 1 : RETURN 

1300 LABEL" COULEUR DISQUES" 

1305 F-2 
1360 FORI=lTûP 
1365 READCL 

1370 T(1,1)=8 + I*2:F(I,P+I-I)=-CL 
1380 NEXT 

1390 RETURN , , . , , , u - A c 7 « q i n il 

2000 DATA 1, 4, 6, 7, 8, 9, 10, 11, 12, U, H, 15, 1,4, b, 7, d, 9, 10, 11 

3000 LABEL"DEPL" 

3003 F0RI=265T053STEP-1 06 

3005 IFV<ITHENR=I 

3006 IFX<ITHENS=I 

3008 NEXT lrr ,. 

3010 GETRE$ : IFRE$=" "THENRE=NOT ( RE) 

3012 IFRETHEN5020 
3015 '*** DEPL. HAUT *** 

3020 FORI=YTOPSTEP-l 

3030 B0X121X,I,X+U*2,I+5,Q 

3035 LINE[3]X,I+6,X+U*2,I+6 

3040 IFI=H-6THENLINE [1]S,H,S+6,H 1 + 6 

3042 IFI>H-6THENLINE ll3]S,I + 6,S+6,I + 6 :SET [ 1 J S , 1+6 .SET 1 1 J S b,I 

3045 NEXT 

3050 IFV<XTHEN31 00 

3055 '*** DEPL DROITE *** 

3060 FOR I=XTOV 

3065 BOX |2|I,P,I+U*2,P+5,Q 

3070 LINE[3jI~l,P»I~l/P f 5 

3075 NEXT 

3080 GOTO 3150 

3083 IFI=H+1THENLINE [ 1 ] R , H , R+6 , H 
3100 * *** DEPL. GAUCHE *** 

3110 FORI=XTOVSTEP-l 

3115 BOX [2jI,P,I+U*2,P+5 / Q 

3120 LINE[3]I+l+U*2,P,I+l+U*2,P+5 

3130 NEXT 

3150 '*** DEPL. BAS *** 

3160 FORI=PTOW 

3170 BOX [2]V f I,V+U*2,I+5,Q 

3180 LINE 13]V,I-1,V+U *2,1-1 

3183 IFI=H+1THENLINE11]R,H,R+6,H n __[i, lDA( ; T , 

3185 IFI>H+1THENLINE 1 13 ] R, 1-1 , R+6 , L-l :SET il J R, I 1 : SET 1 1 j R+6 , 1 1 
3188 NEXT 


3190 RETURN 
4000 LABEL"AFFICH. " 

4005 Z = Z+1 

4010 CURSORO, 1 :PRINT" 

$ , 2 ) ; " . " ; MID$ ( T I $ ,3 , 2 ) 

4030 RETURN 

5019 ****** DEPLACEMENT RAPIDE 

5020 BOX[2]X,Y,X+U*2,Y+6,3 
5025 BOX ( 3 ] X , Y , X+U* 2 , Y + 6 

5027 BOX|l]S,Y,S+6,Y + 6, 13 

5028 LINE|13]S+1,Y,S+5,Y 

5029 LINE(13jS+l,Y+6,S+5,Y+6 

5030 BOX (2]V,W,V+U*2,W+5,Q 
5035 RETURN 


Déplacements : " ; US ING "####"; Z ; : PRINT" Temps 
;RIGHT$(TI$,2) 


" ; LEFT3 (TI 



ACTION DE STOCK 


GENERALITES 

Ce programme utilisable sur MZ 80B muni 
V Le stock 

Sssts*“* 

Sl=--=£ 

y en a au maximum 200 

Celui-ci est défini par : 

Son nom ic„„ 

Son prix ^caractères maximum 

Sa quantité 4 cam'S 

Sa limite ? caractères maximum 

4 caractères maximum. 


13 reappro,l!tom «»t de ce 

Ï3 ,V ®° i,Pll,S * 999 “«*Par 


2J La sortie du matériel 
res P S m ? P6Ut 9érer de front 999 affai- 

à?Sï!Sïïra: 

~ssssïïî= 


Lors aej affichage du menu, un appui sur b 

3 ,pe * , * sppp "«»5» 

categorie soit une catégorie 

Une sous-catégorie : la limite 

la quantité 
le prix 


mode D'EMPLOI DU PROGRAMME DE GESTION DE STOCK 


^Z^ mstmc,hK ^ 


A) « y avait déjà du matériel 

voZ\t3?î„ï • â w " es pl « s « 

. que so,t msere ce matériel 

l û nrAn». ’ 


gérer le programme. " S que peut qUe so,t ,nséré ce matériel. 

ETUDE FONCTIONS PAR FONCTIONS 

• TOI mue n ^6 1 à X. splnn Iûo 


Knprlmànt^ ^ toucpe 9 P 61 ™®' le listing si 

«:réïï ,o “ che4p ™ et *“"»" 

eRiSf' a , , °" Che5pe, ™'""»« 1 <|-ene 
Z™ sur imprimante. 

Les données d'une affaire : le nom 

le prix 

™s i r s ,«r e8pe * , *™'^“ 

ÏÏrïïr la,0 “ 0he *'' permet «* 

PoïïïS" M,taCd89to,988 °' 


• touche o 

détari Anm nS ^ que cette Onction en 
3 * ^PP u yer donc sur la touche 0 le n m 

» vous demandera alo re Si voeseoZ 

S:::! Eïasr*** 

ou (R) pour un retour au menu. 

sz£kS'“^ p “' 

retourner au menu. te9 ° rie 0U R pour 


° e1àX ' selon les matériels existants. 

B) Il n'y avait pas de matériel 

Si vous aviez appuyé sur la touche N vous 

creez alors une sous-catégorie. S 

H se présente alors deux cas: 

A) Cette catégorie est vide 
Le programme demande le nom (15 CM 
fes maximum), le prix, la quantité, et la ^irrite." 

B| Cette catégorie n'est pas vide 


10 CLR:DIMAT( 200 ) , ZT< 200 > s X 0 PEW# 1 , FD 15 > 1 , "MATERIEL”: INPUTttl ( 1 > , AA 

20 F 0 RI= 2 T 0 AA+l: INPUT# 1 (I> ,A*<I- 1 > : AT ( I~ 1 > =LEFTT (AT < 1 - 1 > » 18 ) sNEXTI 
30 CLOSE# 1 : XOPEN# 1 , FD 1 3 1 » " AFFA I RE ” : I NPUT # 1 < 1 ) , Z Z 

40 F 0 RI= 2 T 0 ZZ + 1 *. INPUT #1 (I) ,ZT(I~ 1 > : ZT ( I~ 1 > =LEFTT < ZT ( I~ 1 ) » 18 ) sNEXTI 
50 CLOSE# 1 ï C 0 NS 0 LEC 8 O : I NPUT " DATE : " ; DT 
1 1 0 C 0 N 5 DLEC 80 : SFT=SPACET ( 79 > s CONSOL.ESO * 24 
1 20 PR I N T SP ACE* < 32 ) ; " MENU ” 

130 PRINTSPAŒT ( 32 ) ? 

150 PR I NT : PR I NT s PR I NT "<0 >===•» Insertion d'une donnée" 

155 PR I. NT " < 1 Suppression d'une donnée" 

160 PR I NT " < 2 >==== Correction d'une donnée" 

170 PRINT "< 3 >=~== Li stage des données" 

171 PR INT" < 4 Création d’une affaire" 

Î 72 PR T. NT " < 5 >==== Arrêt, d'une affaire" 

173 PRINT" < 6 >”=••== Correction d'une affaire" 

174 PRINT” : ' 7 >“== Listage d’une affaire” 

175 PR I NT " < 8 >===== Incrément d'un materiel" 

1.76 PR I MT " < 9 >“■-== Décrément d'un materiel" 

1 7'9 pp I NT " < . >=!==” Enregi s.trement et arrêt" 

180 CURSORO, 23 ! PRINT"aailiH* " : CURS 0 R 7 , 23 : GETAT: IFAT=" "GOTO 180 
1 85 PR I NTT AD ( 6 ) ? AT» ? 

190 IFAT=" 1 "THEN 1000 
200 I FAT= " O " THEN 2000 
2 1 0 I F AT= " 3 " THEN 3000 
2 1 2 I F AT= " . " TMEN 20000 
2 i. 3 I F AT= " 6 " THEN 1 0000 

2 1 4 I FAT= " 9 " THEN 80 O 0 

215 I FAT= " 2 " THEN 6000 

216 I F AT~ " 7 " THEN 4000 

217 I FAT™ " 4 " THEN 5000 

218 I FAT” " 5 " THEN 7000 

219 I F AT= " 8 " TUEN 9000 

300 C 0 Né 0 L..EC 40 îCURS 0 R 10 , 12: PRINT" IL N’ Y A RIEN ?!?!": F0RI=0TD2o0o: NEXTI : G01 01 10 
1 000 FOR I =01 02000 : NEXT *C0NS0LEC8Ü : I FAA=OTHEN300 _ . PûTPPnR T F " • P 

1 00 1 CURSOR 1 0 , 1 3 : PR I NT " VOULEZ -VOUS SUPPR I MER : " : PR I NT < 0 s »== UNE C ATEbOR I E - F 
R I NT " < N > ===> UNE SOUS CATEGORIE ” : PRINT" OU <R> POUR LE RETOUR AU MENU 

1003 GETAT: IFAT=" 0 "G 0 T 01010 

1 004 I F AT= " N " GOTO 1 500 

1 005 I F AT= ” R " THEN 1 1 O 

1006 GOTO 1003 

1010 G 0 SUB 30000 ... 1 \ T ^ jjl_, |||' j | «| | jjp J I I H ^|ll 

"ÎSSTSSmV < ABS (NC) ) S IF (NC= 0 ) + (NC >AA > THENCURSORO , 23 : PR I NTSPT : GOTO 1 0 70 
1090 CONSOLESO» 24 : DELETERIGHTT (AT (NC) , 15 ) : I F AA= i THENAA- 0 : G OTO 1 1 0 
1. 1 00 AA- AA - 1 : FOR I =NCTOAA : AT ( I ) =AT ( I + 1 ) 

1110 NEXTI ïGQTOIIO 

1500 G 0 SUB 30000 t9ir - - — K . n _ -wHH 

^Tf 545 NC=INT ( ABS (NC) ) : IF <NC= 0 ) + (NC > AA) THENCURSORO? 23 : PRI N FSPT: G 0 T 01 540 
1 547 IF VAL < LEF T T ( AT (NC) , 3 ) ) = 0 THE &300 

^™ l l Æ'lN??A 8 S<NI>» ) . IF (N 0 = 0 > + (NDÎVAL (LEFT* (A* (NC> , 3 ) ) + 1 > THENCURSORO, 23 : PRINTSP 


jvelle catego 


V^7 CONSni FS0.24:A=VAL(LEFT*(A*(NC> , 3 ) > - 1 = A* (NC> «SPACE* (3-LEN (STR* ( A> > >+STR*(A 
» +RI6HT* (A* (NC) . 15) : IFUAL (LEFT* (A* (NC) , 3) >=0THEN1 KJ 

j 590 » ÏNPUT.. «I*. » . A..PRIHT.. ( I ) , A*: NEXTI : CLOSE# 1 ! 

G0T01 10 

2000 FOR I=0TG2000: NEXTI : C0NSÜLEC8U . ». - prtmt"' 0- ===’=- une nouvelle catego 

2010 CURSOR 1 0 » 13: PRINT" Voulez-vous creer : "-PRINT -O, - . une nouvel 

rie principal e" 

201.5 PR I NT " < N > ===> une sous-categorie" ^ 
pop O PR INT "ou <R> pour un retour au menu ?" 

2030 GETAT: IFAT="0"G0T021Û0 

2040 I F AT= " N " G0T02500 

2050 IFAT= "R" GOTO 1 1 O 

2060 G0T02030 

2100 C0NS0LEC80 

2115 I F AA=OTHENNC— • 1 : GGT02 1 50 

2140 CURSDR0,23> I NFW' 31«B»nBBBWSIBSBaBH«B»ŒBBBnnŒBB«H*nBSrawraM»» 

IF(NC-O) ♦ (NOAA+l > THENCURSORO, 23: PRINTSP*» B0TO214O 
££ SSS^^iSS^ami^ 13.FRINT-NO- d* cette nouvelle categone . 

" : CURSORO ? 1 5 : I NPUTNT : I F LEN ( NT ) ;• 1 5 THEN2 1 50 

2Î.S FO^ÏÏ™aMFF^G F^(A^ n, 15 )==NTTHENC 0 NS 0 LEC 80 :CURB 0 Rl 0 , 10 :PRINT"Ce nom e, 

iste déjà - " s F0RI=0T02000: NEXTI : G010212U 

?îr>B FOrÜiTOZZ: IFRÏGHT* ( Z* ( I > , 15) =N*THENCONSOLECBOî CURS0R10, 10:PRINT"Ce nom -K 
i ste dej a . " : FOR I-0T02000: NEX.T I : G0T02 1 20 

2159 NEXTI _ T v 

2160 AA»AA+l.FORI-AATONCSTEP-l«A*<I+i)-A*<I) 

2170 NEXTI : AT (NC) ="000"+NT: X0F*EN#1 , FD131 , NT: LL0SE#1 ■ GO TOI 10 
2500 I F A A = 0 T H E N 3 O 0 

^2540 N |^C=INT (ABS (NC) ) : IFWC=Ô) + ( NC >AA> THENCURSORO, 23: PRINTSP*! G0TU252U 
2545 CGNSOLESO , 24 : B= VAL ( LEFT T (AT (NC) ,3) > 

254 7 I FB=OTHENND= 1 : G0T02590 

2 S 0 

) : IF(ND=0> + (ND>VAL (LEFT* (A* (NC) , 3) ) +1 ) THENCURSORO, 23: PRINTSP 

*2590 0 C0NS0LES0,24:C0NS0LEC40=CURS0R0,13:PRINT''Nom de cette nouvelle soue-catego 


ri es": CURSORO, 15s INFUTN*: IFLEN (N*) M5THEN2590 
2595 N*=SPACE* ( 1 5-LEN < N* ) > +N* 

2600 C0NS0LEC40: CURSORO, 13: PRINT"Quanti te restante de ce materiel :": CURSORO, 15 
: INFUTQ*: IFLEN (Q*) MTHEN260O 

2610 C0NS0LEC40: CURSORO, 13: PRINT"Prix de ce materiel :": CURSORO, 15: INPUTP*: IFLE 
N (P*) >8THEN26iO 

2620 C0NS0LEC40: CURSORO, 13: PRINT"Quanti te inferieure : "ïCURSORO, 15: INPUTL*: IFLE 
N (l_*> >47 HEN2620 

2630 B=VAL(LEFT*(A*(NC) ,3) ) +1 : A* (NO =SPACE* (3-LEN (STR* (B) ) ) +STR* (B) +RIGH7'* (A* (N 

2631 XOPEN#i,FD101,RIGHT*(A*(NC> , 15) s F0RI=VAL (LEFT* (A* (NC) , 3) > TONDSTEP- 1 : INFUT# 
1(1) , A*:PRINT#1 (1 + 1) , A*:NEXTI 

2640 G!*=SPACE* ( 4-LEN ( (3$ ) > +0* 

2650 P*=SPAG E* < S--LEN (P*) ) +P* 

2660 L*=5PACE* ( 4--LEN ( L* ) ) +L* 

2665 ÏFVAL<Q*><=VAL(L*)THENPRINT/F"IL FAUT RACHETER DU " ? N* 

2670 PR I NT# 1 ( ND > , Q*+P*+L*+N* s CLOSE# 1 : GOTO 1 1 0 
3000 0=0: I F A A=0THEN300 

3005 F0RI«0T02000: NEXTI : C0NS0LEC80: CURS0R5, 13:PRINT"Voul ez-vous 1 i ster : " : PR INT 
" < 0 > ==-> le tout "s PRINT”<N> ===> une partie" 

3007 PR INT" ou <R> pour un retour au menu" 

30 1 0 GETA* : I FA*= " 0 " G0T03500 
3020 I F A*= " N " G0T03 1 00 
3030 I F A * = " R " G 0 T 0 1 lO 
3040 GDI 030 1 O 
3100 (3QSUB30000 

3 1 20 NC= I NT < ABS { NC > ) a I F { NC=0 ) + ( NC >AA ) THENCURSORO , 23 : PR I NTSP* î G0T03 110 
3130 G0SUB50000 
3160 G0T0110 

3500 W=0: F0RNC=1T0AA: PRINT/P: GM>: G0SUB50000 : W=W+G! : NE X TNC : PR I NT /P : PR I NT /P SPRINT/ 
PT AB ( 20 ) ; "Prix total du stock :"ïW:GGT0110 
4000 Q=0 : FOR I =0T02000 s NEXT: C0NSDLEC80: IFZZ*0ÎHEN3O0 

4010 CURS0R5, 13: PR INT "Voulez -vous lis, ter : " : PRINT"<0>===> Toutes les affaires": 
PRINT"<N>===> Une af f ai re" s PRINT"ou <R> pour un retour au menu" 

4020 GETA*: IFA*=" R"G0T01 10 
4030 IFA*="N"G0T04500 
4040 IFA*< > "O" GGT04020 

4050 F0RI=1T0ZZ:PRINT/PTAB(18) ; RIGHT* (Z* ( I ) , 15) : PRINT/P » j H C I 

4060 B=VAL(LEFT*(Z*(I> ,3) ) : IFB=0THENPRINT/P"I1 n’y a r i en " : G0T04090 
4070 W=0 s FQRJ— 1T0B: INPUTttl (J) , Z*s Z*=4_EFT* ( Z*, 27) : PRÏNT /PLEFT* < Z*, 4) ; TAB (22) ;MII) 
*(Z*,5,8> ;TAB(41> ? RIGHT* (Z*, 15) : Q=Q+ (VAL (MID* (Z*, 5, B) )* VAL (LEFT* ( Z*, 4) ) ) 

4075 W=W+(VAL(I'1ID*(Z*,5,8) ) *VAL (LEFT* < Z*, 4) ) ) 

4085 NEXTJ 

4087 C0NSGLE50 , 24 : CURS0R5 ,13s PR I NT /P : PR I NT /P " Pr i :< pour cette affaire :"?W:PRINT 
4090 CLOSE# 1 : NE X T I : CDNS0LEC80 : CURSOR5 , 1 3a PR INT/P: PR INT/P: PR INT /P "prix total des 
affaires s"?Q:G0TÜ110 

4500 CQNSOLECBOs print» gWB»fla«Mfinaaftiiaa " : tab (42) ; " aiiiBiaartrawiaaaœ^iaiiTaaii » s fori= i tp 
ZZ:PRÏNTRIGHT*(Z*(I> , 15) ;TAB(40) , I s F0RJ=0TQ200: NEXTJ 
450 J I NP3234 , A : I F A< >255THEN450 1 
4502 NEXTI 

45 1 0 CURSORO , 23 : I NPUT " : 

4530 MC= INT (ABS (NC) ) s IF <NC=0> + (NO Z Z ) THENCURSORO, 23: PR I NTSP*: G0T045 10 

4545 B=VAL(LEFT*(Z* (NC) ,3) ) : IFB=OTHENPR INT/P" Il n’y a r i en " : G0T04575 
4550 XOPEN# 1 , FD 1 S> 1 , R I GHT* ( Z* (NC) ,15) 

4555 F0RI = 1T0B: INPUTttl ( I ) , Z*: Z*=LEFT* (Z*, 27) : PR I NT /PLEFT $ ( Z $ , 4 ) ;TAB(22) ;MID*(Z* 
,5,8) ; TAE* (41) ; RIGHT* (Z*, 15) 

4557 Q=Q+(VAL(MID*(Z*,5,8) > K VAL (LEFT* (Z*, 4) ) ) 

4570 NE X T I : CLOSE# 1 

4575 FRINT/P: PR INT /P "Tôt al pour cette affaire : " ; Q: G0T01 10 
5000 FOR I =0102000 : NEXTI : C0NS0LEC80: IFZZ=0THENNC=1 : G0T05060 

PR INT 

5020 FOR 1= 1 TOZ Z : PR I NTR I GHT* ( Z* ( I ) , 15 > ; TAB ( 40) , I 

5021 INP3234, A: IFA< >255THEN5021 

5022 NEXTI : CURSORO, 24: PR INT: PR INT 
5030 CURSORO , 22 : PR INT": 

ms®" ___ 

5050 NC= I NT ( ABS ( NC ) ) : IF (NC=0) + (NOZZ+1 ) THENCURSORO, 23: PRINTSF*: G0T05040 

5060 CONSOLESO, 24: C0NS0LEC40: CURSORO, 13: PRINT"Nom de la nouvelle af faire" : PRINT 
: INPUTN* 

506 1 I FLEN ( N* ) > 1 5THEN5060 

5062 N*=SP ACE* ( 1 5--L.EN ( N* ) ) +N* 

5063 F0RI=1TQZZ: IFRÏGHT* (Z* ( I ) , 15) =N*THENC0NS0LEC80: CURS0R13, 13: PRINT"Ce nom ex 
iste deaja . F0RI=0T0200ü: NEXTI : G0T01 10 

5064 NEXTI : F0RI=1 TOAA: IFRIGHT* ( A* ( I ) , 15) =N*THENC0N50LEC80: CURS0R13, 13:PRINT"Ce 
nom existe déjà . FOR 1=0702000: NEXTI : G0T01 10 

5065 NEXTI 

5070 Z Z = Z Z + 1 : FOR I = Z Z TONCSTEP- 1 : Z * ( I + 1 ) = Z * ( I ) : NEX T I : X OPEN# 1 , FD 1 S) 1 , N* : CLOSE# 1 : Z * ( 
NC)="000"+Ni|5 
5080 G0T0110 

6000 FOR I «0T02000 : NEX T I : I FAA=0THEN300 

6005 C0NS0LEC80:CURS0R5, 13: PRINT"Voul ez-vous corriger : PRINT"<0> ===> une cat 
egorie principale":PRINT"<N> === > une sous-categorie" 

6010 PR INT "ou <R> pour un retour au menu" 

6011 GETA*s IFA*= ,, R"GÛT01 10 

6012 IFA*="0"G0T06500 

60 1 3 I F A*< > " N " G0T060 1 1 
6015 G0SUB30000 

6030 CURSORO, 23: I NPUT" 

1" ? NC 

6035 NC= INT (ABS (NC) ) s IF ( NC=0 ) + ( NC > AA ) THENCURSORO , 23 s PR I NTSP* : GQT06030 
6040 CONSOLESO , 24 : CONSOLEC80 : I F VAL ( LEFT* ( A* < NC > , 3 ) ) «0THEN300 

6042 I FVAL < LEFT* ( A* ( NC ) , 3 ) ) =0THEN300 
6045 XOPEN# 1 , FD 1 0 1 , R I GHT* ( A* ( NC ) , 1 S ) 

6047 FOR I * 1 70 VAL < LEF T* ( A* ( NC ), 3 )) s I NPUT# 1 ( I ) , A* : A*=LEFT* ( A* , 3 1 > : PR I NT I ? T AB ( 3 > ; " 
— > " ? R I GHT* ( A* , 15) ? TAB (27) : LEFT* (A*, 4) ? TAB (44) ; MID* (A*, 5,8); TAB (64) ; 

6048 PR I NTM I D* ( A* , 1 3 , 4 ) 

6049 I NP8234 , A : I FA< >255THEN6t>48 

6050 NEXTI 

6055 CURSDRO, 23: I NPUT' 

SBMaWslM " ; ND 

6060 CONSOLESO, 24: ND— INT (ABS (ND) ) MF(ND=0) + ( ND > VAL (LEFT* (A* (NC) ,3) ) ) THENCURSORO 


ü& 

TRADING 


Un seul programme dans noire rubrique 80K, 
mais quel programme I 

25 K de super Basic pour un |eu d'aventures 
exceptionnel, qui vous fera voguer sur toutes les 
mers de notre vaste monde et vivre les passion- 


80 K 


nantes aventures de la flibuste du temps de la 
marine à voile. 

Quelques indications, en marge, vous informeront 
sur la manière dont a été construit ce programme. 

Celui-ci, nous est parvenu juste avant la fabrica- 
tion de ce bulletin, nous n'avons donc pas eu le 
temps de le tester sur MZ-700 ; cependant à la 
lecture de ce listing nous ne détectons aucune 
incompatibilité avec le K.BASIC. 

Bon courage 000 

Et toutes nos félicitations a 0. WALTER. 




18 REM *********************** 

20 REM * TRADING * 

30 REM * * 

40 REH *0. Walter 11/84 * 

56 REH * Release 2.35 * 

6Q REH *********************** 

70 REH occupe environ 24.6 K 

80 GOSUB20000 •* REH COUVERTURE s GOSUB20 1 70 s REM REGLES DU JEU 

100 PRINT”B”?TAB< 16) î “TRADING" 

110 PRINT-OBSBienvenue a la Compagnie.” 

120 PRlNT"BSCo»bién etes-vous a vouloir tenter de” 

130 PRINT” s 7 enrichir “ïHNPUTNB 

148 PRINT-Herci.Eh bien»aî1 ons-y . . . “ÎWAIT500 ^ 

158 REH INITIALISATIONS 

160 DIMAB(NB» 16) »B$<6»5) *CB<6»2) »TB<6»3> »TF(NB»3) »T1<NB»3) 
170 DEF FNA(X)=RND(RND<X)) 

180 CR=20000:REH TARIF DE BASE DU CORSAIRE 

ISÉiiÉiliïiS^^ 

200 FOR X=1TO65FORY=0TO4 
210 READD$:B*(X»Y)=D$:NEXTY»X 
220 DATA 1 » Viande» 20000» 8i 11 
230 DATA 2»Fruits» 18000» 13»9 
240 DATA 3 » Or » 75000» 13» 17 
250 DATA 4»Bois» 15080» 12»8 
260 DATA 5»Textile# 12000» 17» 14 
270 DATA 6»Uraniu«»50000»8» 12 

280 PR I NT "IChaq u e concurrent me donne son nom SVP“ 

290 1=1 
300 REPEAT 

310 7 PRINT"Concurrent n # ” î I î ” «votre noms”? 

320 ' INPUTA$(I*0> 

330 ' A*<I»1)=”3”SAB(I»2)= ,, 400000”ïAB(I»5)=”A QUAI 
340 7 A*<I»6)=”N M *AB<I»7)=”9" 

350 7 Z=INT(FNA<1)*6)+1*REM TIRAGE DE LA ZONE 
360 7 A$(I»14)=STR$(Z) 

370 7 AB(I*3)=BB(Z»3) 

380 7 AB(I»4)=B$<Z»4) 

390 7 1=1+1* P0KE57347 . 5 s PQKE4464 » 0 

408 UNTIL I >NB 
410 REH DEBUT DE LA PARTIE 
420 PRINT ** «Main tenant «bonne chance”? 

430 HODE0 

440 IF NB>1THENPRINT" a tous!”sELSE PRINT 
458 WAIT500 

470 1=1 ïMODEl 

490 IF (AB( I » 1 )< >”0” ) DO — 

500 7 PR INT “B” î AB < I »0) » M » c 7 est a vous 
510 7 TEHP06 * MUS IC M *A2-A4“ *t” ATTENTE” 

520 7 CASE A$(I»5) OF 
530 7 WHEN “A QUAI” 

540 7 A$( 1 »6)=”N“ 

558 7 K=VAL ( At ( I » 14 ) ) sREH K=CODE ZONE 

560 7 PRINT M B” ?TAB( 15) ? “PORT N* ”?B*(K»0) 

570 7 PR I NTT AB ( 15) ?STRING$<9» ' ) 

588 7 PRINT SPRINT 

590 ' PRINTTAB < 20 ) S ” r M ? STR ING* ( LEN < B* < K . 1 ) > . 


ACCUEIL DES JOUEURS 
NOMBRE DE JOUEURS 


CHARGEMENT DE B$(,) AVEC LES 
CARACTERISTIQUES DE CHEQUE PORT 
(Zone, Produit, Tarif de base, Colonne, 
Ligne) 


INITIALISATION DE A$ü POUR CHAQUE 
JOUEUR ; Nom, capitale de départ 
alternative (Quai, Mer), shipement 
zone de départ, position V-RAM (Colonne, 
ligne) 


BOUCHE PRINCIPALE :À répéter JUSQU'A 

BOUCLE SECONDAIRE :A répéter pour chaque joueur 
51 CE JOUEUR A ENCORE UN NAVIRE- 


ALTERNATIVE : UN JOUEUR 
EST SOIT A QUAI 
SOIT EN MER 


«-H ) • 


600 ' 
616 ' 
620 7 
630 ' 
640 7 
650 ' 
660 ' 
670 ' 
680 ' 
690 ' 
700 ' 
710 ' 
720 ' 
730 ' 
740 ' 
750 ' 
760 ' 
770 7 
780 7 
790 7 
800 7 
810 7 
820 7 
830 7 
840 7 
850 7 
860 7 
870 7 
880 7 
890 7 
900 7 
918 7 
920 7 
930 7 
940 7 
950 7 
960 7 
970 7 
980 7 
990 7 
1000 7 
1010 7 
1020 7 
1030 7 
1040 7 
1050 7 
1060 7 
1070 7 
1080 7 
1090 7 
1100 7 
1110 7 
1120 7 
1130 7 
1148 7 
1150 7 
1160 7 
1170 7 
1180 7 
1190 7 
1200 7 
1210 7 
1220 7 
1230 7 
1240 7 
1250 7 
1260 7 
1270 7 
1280 7 
1290 7 
1300 7 
1310 7 
1320 7 
1330 7 
1340 7 
1350 7 
1360 7 
1370 7 
1380 7 
1390 7 
1400 7 
1410 7 
1420 7 
1430 7 
1440 7 
1450 7 
1460 7 
1470 7 
1480 7 
1490 7 
1500 7 
1510 7 
1520 7 


LISTE DES COMMANDES 


PRINT"Nature" ?STRlNGi( 14# ” .") ?" | " ?Bi(K» 1 ) ? " 

PR I NTTAB <20) î " L " ?STRINGi<LEN(Bi(K» 1 ) ) # M ) ? ” J “ 

PRINT"8Montant" ?STRINGi( 12» ” ?Bi(K#2) î " /t" 

PRINT “BCapit al " îSTRINGit 12# " . ” ) î ; 

PRINT US I NG “ #####♦# . ## M ? VAL < A4 ( I #2) ) 

PRlNT M 888Contrat Corsaires” ï 
C0=CR*FNA ( 1 ) 4-20080 
PRINT US I NG " ###### , ## " î C0 
PRINT"BTaux de reprise du fret s" s 
T0=*FNA ( 1 ) * < 100-25+ 1 ) +25 
PRINT US ING ”####.##" ?T0? " y." 

«"ATTENTE”: Ri*"" 

WHILE R$< > M F” DG 
PRINT"BListe des options" 

PRINT”B(A)chat de fret" 

PRINT” (R) evente de fret" 

PRINT" (C)ontrat Corsaire” 

PRINT H (F)in des tractations” 

PRINT”88ûption ?" 

REPEAT 
GET Ri 

UNTIL ( Ri= " A ” ) OR < R$= ” R ” ) OR ( Ri= ” C " ) OR ( R$= "F” ) 

CASE R$ OF 

when “A" do ^ — _ — OPTION ACHAT 

INPUT"8Combien de tonness”ïTN 
PX=TN*VAL(Bi<K#2)> 

IF PX>VAL( Ai< I #2) ) DO 

PRINT"Vous n'avez pas assez d 7 argent !” 

PRINT"Vous ne pouvez acheter que”? 

PR INT US I NG ” #### . ## " î VAL < Ai d » 2 ) > / VAL ( Bi < K » 2 ) ) î 
PRINT” tonnes” 

PRINT”ou bien# revendez du f ret . " :®”ATTENTE” 

ELSE DO 

A$( I #2) =STR$ ( VAL ( Ai ( I # 2 ) ) -PX ) 

PRINT”Capital restant :” î SPRINT US ING "#######.##" ?VAL(Ai( I #2) ) 
PRINT”La cargaison sera chargée des que possible” 

«"ATTENTE" 

I T*=B* < K » 1 ) s ” SELECT ” d Ti ) 

Ai ( I » J ) ^STRi ( VAL ( Ai ( I # J ) )+TN) 

ENDIF 

when "R" do _ OPTION REVENTE 

PRINT "B1 + Viande” 

PRINT"2 + Fruits" 

PRINT”3 + Or" 

PRINT”4 + Bois" 

PRINT"5 + Textile” 

PRINT”6 + Uranium” 

INPUT”8Code du fret vendus ” ?CsPX=VAL(Bi(C#2) ) 
J=C+7sSK=VAL(Ai(I#J>) 

IF SK >0 DO 
REPEAT 


AFFICHAGE DES CARACTERISTIQUES 
DUPORT , 

OU SE TROÉVE LE JOUEUR EN JEU 


TNPUT”Quanti te revenduefen tonnes) s”ïQ 
UNTIL Q<=SK 

PRINT”Taux de reprise: ”î SPRINT USING"####.## M ;T0 
PR INT "Ce qui vous faits”? :BF=PX*Q#T0/100 
PRINT US I NG ” ####### . ## " ? BF ? 

PRINT" de bénéfice» immédiatement impute" 5 
PRINT" sur votre capital" 

PRINT"8Ancienne valeurs"? SPRINT US I NG "#######.##»; VAL < A*(I #2) ) 
Ai ( I # 2 ) =STRi ( VAL ( Ai ( I » 2 ) )+BF) 

PRINT”BNouvel le val eur s "î SPRINT US ING "##♦####.##•• ?VAL( A*< I #2) ) 
Ai(I# J)=STR*(VAL<Ai< I» J) )-Q) î«" ATTENTE" 

ELSE DO 

PRINT”BVous ne pouvez revendre ce que vous" 

PRINT"ne posedez pas...!” 

WAIT300:PRINTTAB( 16) î “ESCROC • " 

«"ATTENTE" 

ENDIF 

when “c** do OPTION CONTRAT CORSAIRE 

IF C0<-VAL < A* ( I » 2 ) î DO 

PRINT"Contrat conclu ! Un corsaire vous” 

PRINT”escortera jusqu'au prochain port." 

CP=VAL ( Ai ( I # 2 ) ) -C0 
PRINT"Capital restants”? 

PR I NT US I NG " ####### . ## " ; CP s Ai < 1 , 2 ) =STRi ( CP ) 

Ai( I »6)="0" 

ELSE DO 

PRINT"Minabl e ! Vous n 7 avez pas de quoi payer"' 

ENDIF 
«"ATTENTE” 

OTHERWISE 
ENDCASE 
WEND 

PRINT"BTrac tâtions terminées !”SWAIT500 
PRINT”Est-ce que tout vous semble OK ”? 

REPEAT s I NPUTRi s UNT I L ( Ri* ” O ” ) OR ( Ri= " N " ) 

IF Ri="N" DO 

PRINT" 88 Avez-vous oublie quelque chose " î 
REPEAT s I NPUTRi s UNT I L ( Ri= " O " ) OR < Ri= "N ” ) 

IF Ri=" 0 " DO 

PRINT "BVous etes un homme avise»capitaine" 

PR I NT Ai ( I » 0 ) î " !" 

PRINT”Votre intelligence vous permet d 7 " 


Ur I IUN rn Uh IKANbAUlüN (PAR 
DEFAUT) 

MAGOUILLAGES 
ET POTS 
DE VIN... 



1530 

1540 

1550 

1560 

1570 

1580 

1590 

1680 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1819 

1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1908 
1910 
1920 
1930 
1940 
1950 
I960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2248 
2250 
2260 
2270 
2280 
2290 
2300 
2316 
2320 
2330 
2340 
2350 
2360 
2370 


PRINT"assurer le transport du fret du quai 
PRINT"au navire avec la sécurité maximale. 

PRINT 

PRINT"Le Syndicat des Dockers s'en porte 
WAIT500 

PRINT"Votre participation a nos oeuvres" 
PRINT"social es s'eleve a: "î spx-VAL(B$(K»5) >+5008 
PR INT US I NG " ###### . #« " ï PX 
REPEAT 

INPUT"OEtes-vous des nôtres ?"»R$ 

UNTIL(R$-"Û" )OR(R$= H N H ) 

IF R$="0" DO 

PRINT"BMerci pour el 1 es . . . " ïWAIT500 
CP=VAL < A$ ( 1 . 2 > ) s CP=CP-PX 
IF CP<0 DO 
CP=0 

PRINT"Le peu que vous avez nous suffira..." 
«"ATTENTE" 

END IF 

B$ ( K » 5 ) =STR$ ( PX ) ï A$ ( I » 2 ) =STR$ ( CP ) 

EL SE DO 

PRINT"Maî heureux. . . Inconscient . . . ! " 

«"ATTENTE" 

«"PROBLEME" 

ENDIF 

ELSIF R$=“N" DO 

PRINT"ECapi taine "ïA$<I*0)î 
PRINT" » vous etes un ane !" 

«"ATTENTE" 

«"PROBLEME" 

ENDIF 
ELSE DO 

PRINT"BTant pis..." 

«"ATTENTE" 

«"PROBLEME" 

ENDIF 

IF VAL ( A$ ( I » 7 î ) < 5 DO 


garant . . 




TEST SI SHIPEMENT A COMPLETER 


PRINT"BVoul ez-vous reapprovisionner " 

PRINT" le shipment ( fuel ♦eau#nourritureietc)"ï 
REPEAT ï I NPUTR* : UNT I L ( R$= " O " ) OR ( R$= "N" ) 

IF R$="0" DO 

PRINT"Cel a vous coûteras $5000" 

CP=VAL ( A$ ( 1 1 2 ) ) s CP-CP-5000 
IF CP<0 DO 

PRINT"Vous n'avez pas assez d'argent" 

PRINT"Tant pis pour vous ..." :«"ATTENTE" 

ELSE DO 

PRINT"Voila qui est fait. Bon voyage !" 

A$( I *7) = "9" ïA$( I #2) ss STR$(CP) s«" ATTENTE " 

ENDIF 
ELSE DO 

PRINT"C' est vous qui courez les risques...!" 

«"ATTENTE" 

ENDIF 

ENDIF 

PRINT"BVous allez pouvoir reprendre la mer" : A$< I »5)-"EN MER" 

UAIT500 

when "en mer- do DEUXIEME CAS DE L'ALTERNATIVE 

Z=VAL^A$( I * 14) ) SB" ZONE" ( z ) (A QUAI/EN MER) 

«"DATA" ( I ) 

X-VAL(A$( 1 13) ) s Y=VAL(A$( 1*4)) s CJ- 105 s REM CODE ASCII 
«"DISPLAY" (X#Y»CJ) 

IF ( VAL ( C$ ( Z # 1 ) ) -0 ) AND ( VAL ( C$ ( Z » 2 ) ) =0 ) DO 
REPEAT 

X=INT(FNA( 1 >*(23-1+1 )+l ) 

Y=INT(FNA( 1 >*(22-1+1 >+l ) 

UNT IL POINT ( X*2» Y*2)<>-1 
C$ ( Z » 1 ) =STR$ ( X ) s C$ ( Z » 2 ) =STR$ ( Y ) 

ENDIF 

X=VAL(C$(Z»l)>!Y=VAL(C$(Zi2> )SCE=103 
«"DISPLAY" (.X.# Y »CE) 

REPEAT 
REPEAT 

REPEAT i 

CURSOR37 » 2 1 :PRINT"1" ATTENTE D'UNE COMMANDE 

KEYRSWAIT30 
C-URSOR37» 21 SPRINT" " 

KEYRsWAI T30 
UNT IL RO0 

CURSOR37 » 2 1 s PR I NTSTR$ ( R ) s WA I T 100 
UNT IL (R>=1)AND(R<=8> 

X=VAL( A$( I » 3) ) SY=VAL(A$(I»4>) :X0=XSY0=Y 
IF R=1 DO 
Y=Y-2 


TRACE DU CADRE 
DU JEU 

AFFICHAGE DES 
DONNEES 


DE DIRECTION 



ELSIF R=2 DO 

ELSIF R=3 DO 

ELSIF R=4 DO 
X=X+3!Y=V+2 
ELSIF R-5 DO 

E x=x-3:vtv“ ANALYSE ET EXECUTION 

ELSIF R=7 DO DE LA COMMANDE 

ELSE DO I 

IF PG1NT(X*2»Y*2>=-1 DO 
«“CLEAR " : CURSOR3 » 5 
PR I NT " ECHOUAGE INTERDIT" 

WAIT1000îFG=0 
ELSIF ( Y< 1 ) OR < Y >22 ) DO 
« “ CLEAR “ î CURSÛR3 » 5 
PR INT "BANQUISE PRIVEE" 

MAI T 100Ô îFG=0 

ELSIF (X=VAL(C*(Z.1)MAND(Y=VAL(C*(Z.2))) DU 
g “CLEAR" i CURSOR3 * 5 
PR INT "ABORDAGE DECONSEILLE" 

NAIT 1000sFG=0 
ELSE DO 
FG=-1 
ENDIF 
IF FG=0 DO 

Z=VAL<A*(I» 14) ) î g " CLEAR" • « “ ZONE " ( Z ) 

X=VAL( AS ( I »3) ) îY=VAL(AS( I *4) ) î«"DIbPLAY*' (X » Y»CJ) 

X=VAL(CS(Z * 1 ) > i Y=VAL(CS(Zi2) ) : «“DISPLAY " (X * Y» CE) 

ENDIF 

UNTIL FG=-1 

A*<I»3)=STR*<X):A*(I#4)=STR$<Y) 

IF (R>=6)AND(R<=8)AND(X>=0)AND( X<-2) DÛ 
Z=Z-1 
IF Z=0 DO 
1=6 
ENDIF 

A$(I»14)=STRS(Z) 

«“CLEAR" :«"ZONE" < Z > :«"DATA“ ( I ) 

X=20î Y=VAL( A$( I »4) ) :X0=0:Y0=0 
IF PÛINT<X*2»Y#2>=-1 DO 

REPEAT TCCT 

Y=Y-1 ,CDI 

IF Y=8 DO POSE 

endÏf * 22 D'AR 

UNTIL POINT (X*2#Y*2)=0 MOU’ 

A«<T»3)=STR*<X> :A*<I#4>=STR«<Y) ANNl 

ELSIF (R>*2)AND(R<M)AND(X>=2l)AND(X<»23) DO RE-Ef 

IF Z*7 DO CELU 

NON 

ENDIF 

AS(I»14)=STRS(Z) 

«"CLEAR"ï«"ZONE ,, <Z) :«"DATA“(I> 

X=3îY=VAL ( AS( I » 4 > ) : X0=0:Y0=0 
IF POINT ( X*2# Y*2 ) *-l DO 
REPEAT 
Y=Y-*1 
IF Y=0 DO 
Y =22 
ENDIF 

UNTIL POINT (X*2»Y*2)=0 
ENDIF 

AS(I#3)=STR»(X)îAS(I#4)=STRS(Y> 

ENDIF 

IF (X0O0)AND(Y0<>0) DO <T ~ ~ — — — 

CJ=128î «“DISPLAY" ( X0» Y0» CJ > 

FNniFsREH EXTINCTION POSITION PRECEDENTE 
CJ=105 S « M DISPLAY"(X»Y#C3) sREH AFFICHAGE NOUVELLE POSITION 
SH=VAL(A$< I #7) ) *SH=SH-FNA< 1 > 

IF SH>0 DO 
AS ( I * 7 ) =STR$ ( SH ) 

COPY TS(0»0) iCS(0»0) 

L=1 5 Z=VAL(AS( I # 14) ) :R=15 
IF «"PROXIMITE" (I#ZiL»R)<>0 DO 
IF AS( I *6)="0" DO 
«“MODE D'EMPLOI" 

«"RADAR" s X0=20SY0=9SREM ORIGINE 


TESTE LES CAS 
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D'ARRIVEE DU 
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NON AUTORISE 




NVADE 

PC-1500+CE 155 


Ce jeu bien connu sur les ordinateurs domestiques est enfin adapté dans 
une version proche de la réalité sur le PC-1 500. Le plus difficile était 
de reconstituer un écran normal sur la ligne du PC-1 500, et pour ce faire, 
l'écran a été découpé en trois parties, alors qu'elles sont superposées 
sur un écran normal, elles ont été mises côte à côte sur I écran du 
PC-1 500. 

Après ces quelques considérations techniques, le jeu est assez connu 
pour ne pas avoir à en faire une description complète. MODE pour aller 
à droite, = pour aller à gauche et DEF pour tirer. 



écran PC-1 5(pO 


Comme tous les programmes du bulletin PC-1 500, vous pouvez l'ac- 
quérir pour 1 5 F ou 1 point + 1 cassette. 

Ce jeu est tiré d’une revue japonaise. 
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4330* 3E 7F 4D 49 49 79 32 OO 

4338*00 03 03 73 7B OF 07 OO 

4340*36 7F 4D 49 49 7F 36 OO 

4348*26 4F 4D 49 49 7F 3E OO 

4350*40 60 40 OO 02 01 03 Ol 

4358*02 00 CO 40 CO 00 CO 80 

4360* CO OO 40 CO 40 OO 40 80 

4368*40 00 80 40 80 00 80 CÛ 

4370*80 OO IC OC OC OC IC 00 

4378*10 18 3C 76 36 1F 36 76 

4380* 3C 18 10 OO OO OO 00 CO 

4388*00 00 00 OO 3E 22 3E OO 

4390*22 3E 20 OO 32 28 26 OO 

4398*22 28 3E 00 1E 10 3C OO 

4380* 2E 28 38 OO 3E 28 38 OO 

4388*02 38 06 OO 3E 28 3E OO 

43B0S2E 28 3E OO 3C 08 3C 00 

43B8 * 3E 28 38 OO 3E 22 22 00 
43CO * 38 28 3E OO 3E 28 22 OO 
43C8 * 3E 08 02 OO OO OO OO OO 
43D0*00 OO OO OO OO OO OO OO 
43D8 * OO OO OO OO OO OO OO OO 
43E0*Û0 OO OO OO OO OO OO OO 
43E8*00 OO OO OO OO OO 00 OO 
43FOSOO OO OO OO OO 00 OO OO 
43F8*OÛ 00 OO OO OO OO 00 OO 
4400*00 OO OO OO OO OO OO OO 
4408*00 OO 00 00 00 OO 00 00 
4410*00 00 OO 00 OO 7F 7F 49 
4418*49 69 69 61 OO OO IC IC 
4420* IC 3E IC 08 OO 7F 7F 49 
4428*49 69 69 61 00 7F 7F 06 
4430* OC 18 7F 7F OO 7F 7F 41 
4438*41 63 3E IC OO OO 00 OO 
4440*00 OO OO OO OO 00 00 OO 
4448*00 00 00 OO OO 36 67 4D 
4450*49 59 73 36 OO OO IC IC 
4458* IC 3E IC 08 OO 36 67 4D 
4460*49 59 73 36 OO 00 03 03 
4468* 7F 7F 03 03 00 78 7C 16 
4470*13 36 7 C 78 OO 7F 7F OD 
4478*19 39 6F 46 00 00 03 03 
4480* 7F 7F 03 03 00 OO 00 OO 
4488*00 00 OO 00 OO 78 7C 16 
4490*13 36 7C 78 00 OO OO OO 
4498*00 00 00 OO OO OO OO OO 
4480*00 OO OO OO OO OO OO OO 
4488*00 OO OO OO OO OO 00 OO 
44B0*00 OO OO OO OO OO 00 OO 
44B8SOO OO OO OO OO OO 00 OO 
44C0*00 OO OO OO 00 OO OO OO 
4408*00 00 00 00 00 00 00 00 


44DOSOO O 
44D8* 00 G 
44EOSOO O 
44E8SOO C 
44FOSOO 0 
44F8 * 00 C 
4500* 8E 7 
4508 * FD t 
4510*08 F 
4518* C8 F 
4520*88 C 
4528*98 F 
4530*03 C 
4538*62 C 
4540*08 É 
4548*02 : 
4550*00 F 
4558*04 i 
4560*04 i 
4568*78 < 
4570* FD : 
4578*00 i 
4580* FD i 
4588*44 i 
4590* DF : 
4598* 8F ! 
4580* C8 I 
4588*89 
45BO * 1 7 : 
45B8* 8F 
45C0*8B 
45C8 * 1E 
45D0 * 88 
45D8 * C8 
45E0S00 
45E8* 45 
45F0* 28 
45F8* 88 
4600*45 
4608*42 
4610*BE 
4618* 9F 
4620*68 
4628*00 
4630* 48 
4638*44 
4640* BE 
4648*89 
4650*77 
4658* FD 
4660* B3 
4668*28 
4670*79 
4678*04 
4680*01 
4688*44 
4690*85 
4698*01 
4680*77 
4688* FD 
46B0* 88 
46B8 * 48 
46COS41 
46C8 * 68 
46D0* B5 
46D8* 88 


OO 00 0 
00 00 C 

00 OO 0 
00 00 C 
00 00 C 

00 OO C 
78 75 F 
88 BE E 
FD 88 I 
FD 88 F 

03 FD 2 
FD C8 F 

04 B9 C 
04 B9 F 
62 84 1 
38 62 : 
8E 78 ( 
8E 78 < 
8E 78 < 
07 BE I 
28 FD : 
OO OO i 
88 FD * 
8E 84 : 
28 45 : 
58 44 
FD D8 i 
07 85 
B7 02 
8E OD 
44 8F 
FD 88 
52 98 

t 48 42 

1 58 00 
i 80 FD 
l F9 B3 
> 27 98 
i D8 FD 
ï 8E 45 
: 41 80 
- BE 45 
» 3F BE 
i 68 4F 
î 7B 48 
1 44 88 
ï 45 29 
) 23 B5 
? F 4 68 
D 88 B5 
5 05 44 
A 88 13 
9 31 B5 
4 48 7B 
1 68 07 

4 44 88 

5 77 FF 

1 8E 77 

7 FF 68 
D 88 68 

8 06 DF 
8 7B 48 
1 44 44 
8 OF 41 
5 05 68 
8 06 B5 


OO 00 0 
OO 00 C 
00 00 O 
OO 00 Û 
OO OO 0 

00 00 c 
FD C8 4 
ED EF F 
DD 88 1 
FD 88 I 
28 FD C 
FD 98 F 
OF B 7 C 
FO Fl I 
B9 OF I 
24 8E 7 

01 84 f 
03 B5 ( 
05 8E 7 
F5 DD 1 
18 FD ( 
00 00 1 
98 FD ( 
89 03 - 
D5 88 < 
58 00 I 
85 44 l 
44 8F 
89 06 

B 7 01 
8E 03 i 
DD FD 
FD 88 
: 15 08 
FD 88 
i 88 FD 
08 B7 
i FD C8 
i 88 BE 
i D8 98 

> 48 7B 

> 17 48 
: 45 17 
- BE 45 

t 10 68 

i 06 48 

> 85 78 
5 Ol 8E 
* 04 48 
5 08 68 
» 44 44 

3 8E 23 

5 OO 8E 
B 48 1 1 

? 41 F9 
B 09 FD 
F B7 08 

7 FF B5 

8 04 48 
8 07 43 
F DF FD 
8 13 B5 

4 44 88 
1 44 44 
8 07 41 

5 05 48 


00 00 00 1 
00 00 00 
00 00 00 2 
ôo oo oo : 
oo oo oo : 

00 oo oo : 

45 FD 88 i 
FD 28 FD 1 
16 98 FD I 
B5 OO 41 
08 FD 88 I 
FD 88 68 

00 89 13 * 

B7 00 89 
B7 00 89 
78 00 B5 
8E 78 02 « 

00 8E 78 
78 06 8E 
BE 41 00 

88 98 00 
00 OO 00 
C8 14 8E 
45 8E 06 
03 8E 44 
FD 88 FD 
8E B7 03 
BD FF 8E 
15 8D 44 

89 06 15 
85 44 8F 
18 FD 28 
FD 98 FD 
68 07 68 
FD C8 BE 

1 18 54 FD 
9C 83 02 

! B5 43 AE 
45 D3 B5 
i OO OO OO 
; 48 ÎO 68 
i 77 48 50 
' 48 79 48 
i 17 B5 01 
l 27 41 44 
ï 20 48 00 
» 11 B7 01 
E 79 31 8E 
ï 7B 48 11 
* 07 41 F9 
1 88 09 FD 
3 B5 2B 8E 
E 77 F 4 68 
1 FD 88 B5 
? B3 05 44 
D 28 88 13 
3 81 05 B5 
5 16 FB 81 
B 7B 48 AE 

3 46 46 46 
D 28 88 10 
5 Ol 68 OF 
8 06 B5 03 

4 44 88 06 

1 44 44 44 
8 77 48 50 


3230 


3240 


3250 


3260 


3270 


3280 


3290 


3380 


3310 


3320 


3330 


3348 


3350 


3360 


3370 


3380 


3390 


3480 


3410 


3420 


3430 


3440 


3450 


3460 


3470 


3480 


3490 


3500 


3518 


3528 


3530 


3540 


3550 



8“ COMBAT" 

«"CADRE" 

Z=VAL(A$<I#14)):«"ZÛNE"<Z> 

« M BATA"<I) 

X=VAL ( AS ( I #3) > :Y=VAL< AS< 1.4)) :CJ=105 
fOISPLAY-CXiY^CJ) 

IF (CS(Z» l)<>* , 8")AND(CS(Zt2)<>"0 1 ") DO» 
X=V AL ( CS ( Z # U ) : Y=V AL ( CS < Z » 2 ) ) s CE* 1 03 
«"DISPLAY"<X#Y#CE> 

ENDIF 
ELSE DO 
«"CARTON" 

ENDIF 

SSlliSlIilËIïïïllllSll^^ 

ELSIF SH*8 DO 

A*<I»1>=STR$<VAL<A*<I#1>)-1MREM -1 NAVIRE 
AS(I»7)=“9"SREM NOUVEAU NAVIRE 
PRINT"BBVous etes tombe en panne de fuel»" 
PRINT" eau* nourriture# etc. . ."SHAIT200 
PRINT"QueUe imprévoyance #Cap. "îAS(I#0> 
I4AIT200 

PRINT"L' équipage est mort de soif . . ."5WAIT200 
PRINT"Vous venez de renouveler la legende du" 
PR INT "Vais seau Fantôme SWAIT208 

ENDIF 


RECHERCHE SI 
PROXIMITE PIRATE 
SI OUI, TESTE SI 
CORSAIRE PRESENT ; 
SINON, 'CARTON' SUR 
LE JOUEUR. 

SI CORSAIRE PRESENT 
- COMBAT AVEC LE 
PIRATE. 


3568 ELSE DO 


REH RECHERCHE SI PROXIMITE PORT 
C0PYT*(8>8) 

L=3: Z=VAL< A*( 1,14)) sk=l 
IF #*PROXIMITE-<I.Z.L.R)<>0 DO 
A*(I.5)«“A QUAI" 

ENDIF 

KSWSSBSyïB 


SHI^EMENT A ZERO 
AIE... AIE... AIE ! 

RECHERCHE PROXIMITE PORT 
SI OUI, LE JOUEUR EST 
MIS 'A QUAI'. 

i 


3570 

3588 

3590 

3680 

3610 

3620 


PRINT"BCap. " 5 ASII #0)5 "i vous n'avez plus de" 
PRINT"navire . Vous n'appartenez donc plus a la" 
PRINT"Compagnie. " SWAIT300 
PRINT"A vrai dire#nous n'avons jamais ete" 
PRINT"satisfaits de vos services." s WAIT208 
PRINT"Adieu donc ! "Ü"ATTENTE" 
:!l63§SËN0!iS ; !s:§i:!;^ 

3640 1=1+1 sREM JOUEUR SUIVANT 

3668 REM RECHERCHE DU VAINQUEUR POTENTIEL 
3670 MODE 0 
3680 S=î ^ 

3690 FOR J=1TÛNB 
3708 
3710 
372é 
3730 
3748 
3758 


FIN DU TOUR POUR 
CE JOUEUR, ON PASSE 
AU SUIVANT. 


FIN DE LA BOUCLE 
SECONDAIRE, TOUS LES 
JOUEURS ONT JOUE. 


IF VAL<A*(J.1))08THENP1=-1*P3=1!ELSE P1-0SP3-8 
FOR K=8T013 

IF VAL ( A4 ( J » K ) ) < >0THENP2=- 1 s ELSEP2=8 : EX I T 1 : GOTÜ3740 

P0=P1 AND P2:P4=P4 OR P3 
IF P0<>0THENTF(S#1>=J!S=S+1 * 

3760 NEXT J — 1 — vj*****™~* m *~~~^ 

3770 IM=S-ÜREM INDICE REMPLISSAGE TF< ) 

3780 UNTIL (IM>0)OR(P4=0) 

3790 MODE1 
3800 IF P4=8 DO 

3810 ' PRINT"KI1 n'y a plus un seul concurrent en 
3828 ' PR INT "Dommage. A bientôt" :«"ATTENTE" 

3830 'ELSIF IM>0 DO 
3840 ' FOR I=1TQIM 
3850 ' FOR J=8T013 

3860 * TF(I#2)=TF(I#2)+VAL(A»(TF(I#1)#J)) 

3870 ' NEXT j:TF<I#3)=VAL<A$<TF<If 1)#2)1 

3880 ' NEXT l:K=2:N0=NB 
3890 ' IF #"MAX I “ ( K » N0 ) =0 DO 
3900 ' K=3 

3910 ' N0=0 

3920 ' REPEAT 

3930 ' N0=N0+1 

3940 ' UNTIL Tl (N0#2)>T1 (N0+1 #2) 

3950 ' «"VAINQUEUR"<#"MAXI"<K#N0)) 

3960 ' ELSE DO 

3970 ' «"VAINQUEUR" C#"MAXI"(1C#N0) > 

3980 ' ENDIF 
3990 ENDIF 
4080 PRINT"8" 

4010 END 

4020 REM 

10800 REM 

10010 REM ZONE DES PROCEDURES 
10820 REM 

10030 PROCEDURE "ATTENTE" 5 X« 

10040 PRINT"88Taper une touche pour continuer" 


Y A-T-IL UN VAINQUEUR ? 


FIN DE LA BOUCLE 
- PRIMAIRE, SORTIE SI 
IL Y A UN VAINQUEUR 

1 ice . “SWAIT500 


DETERMINATION DU 
VAINQUEUR, MEME 
EN CAS D'EX-AEQUOS 


J 


FIN DU PROGRAMME 



10050 REPEAT 
10060 ' GETXf 
10070 UNTIL X$<>"" 

s§iiW® 

10090 REM 

10100 PROCEDURE “ PROBLEME " î X # E* » X0 ♦ T0 

10110 X=INT (FNA( 1 )*4)+l 

10120 RESTORE10160 

10130 FOR X0=1TQX 

18140 ' READ E« 

10150 NEXT 

10160 DATA Un accident#Un vol»Un sabotage*Une greve 
18170 PRINT"1" 50$ ï " vient de se produire sur" 

10180 PRINT H les quais. Cela a entraine la perte de" 
10190 T0*INT(FNA<1 >*(25-2+1 )+2> 

10200 PRINTT0*" X du fret acheté. " :WAIT5O0 
10210 PRINT"Nous sommes vraiment désolés..." 

10220 1T$ S B$(K» 1 > : J=# M SELECT "< IT*> 

10230 PR«VAL(A*(I#J))ïPR*PR-PR*T0/100 
10240 A$( I * J>«STR$(PR> 

10268 RETURN 

10270 REM 

10280 PROCEDURE"CADRE"îX#Y#X* 

10290 PRINT"BB" ; STRINGS (38» M *" > ï 

10308 CURSOR0*23iPRINT"B" iSTRING$( 38» > i "■O" 

10310 X=0:X$="| "!e M VERTIC"(X»X*> 

10320 X=24:X*= H i “ :«"VERTIC" (X* X$> 

18330 X=39:Xt="|":e"VERTIC"(X#X*) 

10340 X=24* Y=0* CURSORX » Y ï PRINT"B“ 

10350 Y®2 ï CURSORX # Y î PR I NT îSTRING$( 14# "*" > ï "»" 
10360 Y*7îCURSORX# Y:PRINT"«" îSTRIN 6*( 14# 'V > ï 
10370 Y=16sCURS0RX# YîPRINT*!" ïSTRING$( 14# > î ,, B M 

10380 ¥=18 îCURSORX# YîPRINT "B“ î STRINGS ( 14» "■■") î 
10390 Y-23 sCURSORX # Y ï PR INT 
10400 X=25: CURSORX » 1 ï PR I NT " NOM ï " 

10418 CURS0RX#3ïPRINT"# de navires!" 

10420 CURSORX#4:PRINT"Zone !" 

10430 CURSORX#5:PRINT"Corsaire !" 

10448 CURSORX #6îPRINT"Shipment 


SCRUTE LE CLAVIER 
ET BOUCLE TANT QU'IL 
NT A PAS DE TOUCHE 
ENFONCEE 


LE JOUEUR N'A PAS 
VOULU VERSER DES 
POTS DE VIN ; IL VA 
LUI ARRIVER DES 
PROBLEMES... 


TRACE LE CADRE DE 
JEU QUAND 'EN MER'. 


PRINT"FRET" 
PRINT"Viande.î*ïTAB(38)î“t" 
PRINT"Fruits.!"iTAB(38>ï"t" 

PRINT"Ûr. ! " ïTAB(38) î"t" 

PRINT"Bois. . . ! " *TAB(38) ï "t" 
PRINT"Tex t i 1 e ! " S TAB ( 38 > 5 " t " 
PR INT "Uranium! •• ïTAB<38> î "t" 
PRINT"**:" 

5!S" 

6! SW" 

7!W > <" 

8îNW" 


iPRINT" 1 sN 
!PRINT"2 îNE 
!PRINT"3ïE 
:PRINT"4!SE 


10450 CURSOR30»8! 

10468 CURSORX# 10! 

10470 CURSORX #11! 

10488 CURSORX» 12! 

10490 CURSORX #13! 

10500 CURSORX #14! 

10510 CURSORX #15! 

10520 CURSORX# 17! 

10530 CURSORX »19i 
10540 CURSORX #20: 

10550 CURSORX #21! 

10560 CURSORX » 22 : 

10570 RETURN 
10580 REM 

10590 PROCEDURE "VERT IC" (X# X$> »Y 
10608 FOR Y=1T022 
10610 ' CURSORX» Y 
10620 ' PRINTX* 

10630 NEXT 
10640 RETURN 
10658 REM 

1 0660 PROCEDURE " ZONE " ( Z ) ; I » J # N I # L0 # L 1 

10670 IF Z=1 DO 

10680 ' RESTORE 16001 

10690 ' ELSIF Z -2 DO 

1Ô7Ü0 ' RESTORE 16021 

10710 ' ELSIF Z=3 DO 

18720 ' RESTORE 16051 

10730 ' ELSIF Z -4 DO 

1Ô740 ' RESTORE 16071 

10750 ' ELSIF Z =5 DO 

10760 ' RESTORE 16091 

10770 ' EL SE DO 

10780 ' RESTORE 16121 

10790 ENDIF 

10808 READ NI 

10810 FOR I*1TÛNI 

10820 ' READ L0#L1 

10838 ' FOR J=L0TOL1 

10840 ' PÛKE J # 255 

10850 ' NEXTJ 

10860 NEXTI 

10870 L0*VAL<B$(Z#3))îLl=VAL<B*(Z#4)> 
1 0880 CURSORL0 # L 1 : PR I NTSTRS < Z ) 

1Ô890 RETURN 
10900 REM 


AFFICHE LE PLANISPHERE 
DE LA ZONE OU SE TROUVE 
LE JOUEUR EN MER. 



10910 

10920 

10930 

10940 

10950 

10960 

10970 

10980 

10990 

11000 

11010 

11020 

11030 

11040 

11050 

11060 

11070 

11080 

11090 

11100 

11110 

11120 

11130 

11140 

11150 

11160 

11170 

11180 

11190 

11200 

11210 

11220 

11230 

11240 

11250 

11260 

11270 

11280 

11290 

11300 

11310 

11320 

11330 

11340 

11350 

11360 

11370 

1*1330 

11390 

11400 

11410 

11420 

11430 

11440 

11450 

11460 

11470 

11480 

11490 

11500 

11510 

11520 

11530 

11543 

11550 

11560 

11570 

11583 

11590 

11608 

11610 

11620 

11630 

11640 

11650 

11660 

11670 

11688 

11690 

11700 

11710 

11720 

11730 

11748 

11750 


PROCEDURE " DATA •' (M) î X , Y, P 
X=29: Y=1 : CURSORX # Y s PR I NTLEFT* (A$<H»0) # 10) 
X=38 : Y=3 : CURSORX # Y s PRINTAi (Mil) 
Y-4iCURS0RX* YïPRINTA*(M# 14) 

Y=5 : CURSORX * Y : PR I NT A* ( h » 6 ) 

Y=6 : CURSORX ♦ Y : PR INTLEFT* ( A$ ( M » 7 ) , 1 ) 

X=33: Y=10:P=8 
REPEAT 

' CURSORX# Y 
' IF VAL ( A$ ( H » P ) ) =0 DO 
' PRINT"*#».*" 

' ELSE DO 

/ PRINT USING"###,#" >VAL(A4(M#P) ) 

' ENDIF 
' Y=Y+1 !P=P+1 

UNTIL P>13 


AFFICHAGE DES DONNEES 
CONCERNANT LE JOUEUR. 


CURSÛR28» 17SPRINT USING"########.##" ;VAL(A$(H# 2) ) 

RETURN 

REH 

PROCEDURE"DISPLAY'*(X#Y»CA) ïl 
1 = 1 

WHILE I<=5 DO 

' CURSOR X # Y ï PR I NTCHR# ( CA ) 

' WAIT20 

' CURSORX » Y ï PR I NTCHR# (128) 

' WAIT20! 1=1+1 

WEND 

CURSORX ♦ Y : PR I NTCHR4 ( CA ) 

RETURN 
REH 

PROCEDURE “ CLEAR " ï J 
J=1 

WHILE J< 23 DO 
' CURSOR 1 # J 

' PRINTSTRING*<23," ") 

' J=J+1 

WEND 
RETURN 
REH 

PROCEDURE “ RADAR ** 

PRINT "B" 

CURSOR0#4îPRINT‘V 


AFFICHE ET FAIT 
CLIGNOTER LE BATEAU 
DU JOUEUR OU LE 
PIRATE SELON LE 
PARAMETRE PASSE 


NETTOIE LE PLANISPHERE 


CURSOR0 » 5 î PR INT " | AZ IHUTH | * 
CURSOR0 # 6 :PRINT M j— j .. 
CURSOR0 » 7 : PR I NT “ | > |« 

CURSOR0#8:PRINT" « 1 " 

CURSOR0# 12ïPRINT M 


CURSOR0» 13 SPRINT" | SITE I 1 

CURSOR0# 14SPRINT" | |» 

CURSOR0» 15 SPRINT “ | > J" 

CURSOR0# 16:PRINT M « » " 

CURSÛR33 #8 SPRINT" , , - 

CURS0R33 # 9 s PRINT " | TEHPS | " 
CURS0R33» 10SPRINT" 1 


CURS0R33# 11 SPRINT" |> 
CURSOR33 » 1 2 s PR I NT “ • — 
CURS0R16# 19SPRINT" i 


AFFICHAGE DU POSTE 
DE TIR EN CAS DE COMBAT 
ENTRE LE PIRATE 
ET LE CORSAIRE. 


CURS0R16# 20 SPRINT" | |" 

CURS0R16»21 SPRINT"» 1" 

H0VE19» ISsPLOTl #63» 15SPL0T1 #63#47 
PLOT1 ♦ 19 #47: PLOT 1 » 19# 15 
CURSÛR11#9SPRINT" j HH » H H i 1 fHH “ 

CURSQR20 # 4 s PR I NT **_aS (-QS }-SS }-B5 y " 

CURSOR 20 » 10 !PRINT"H BS1 BSI BW 85"" 

RETURN 

REH — ^ 

PROCEDURE "HODE D'EHPLQI" 

PRINT"BLe corsaire qui vous escorte va engager" 
PRINT“le combat avec le pirate. Vous etes assis" 
PRINT"Rdans la tourelle du corsaire * face au" 
PRINTVadar qui vous montre le' spot' en" 
PRINT"mouvement du pirate." 

PRINT“SVous ne disposez que de 30 secondes" 
PRINT"pour verrouiller votre lunette de visee" 
PRINT"sur le spot. A ce moment seul ement# vous" 
PRINT"pourrez faire feu." 

PRINT"Si passe ce delai l'objectif n'est pas" 
PRINT"acquis # 1 e pirate aura pu manoeuvrer et" 
PRINT" fera feu..." 

0“ ATTENTE" 


NO COMMENT., 


PRINT“8SBon courage î 
PRINT" B888C0MHANDES s " 
PRINT"BBSZ : Gauche" 
PRINT "SX s Droite" 
PRINT"SN : Descendre" 
PR INT "SH s Honter" 



il76ü PR I NT “5 / SP ACE ' s Tir" 

11778 @"ATTENTE** 

11780 RETURN 

fBSSBlSliiÉS^^ 

1 1 800 PROCEDURE “COMBAT*' ï X0 * X 1 , Yû * Y 1 * D » R* * J # K 
11810 X0=20 î Y8=9 ï REM ORIGINE 

1 182Ô X1=INT(FNA< 1 >*<28-12+1 )+l2) : Y1=INT(FNA( 1 )*< 14-5+1 )+5) 

1 1 830 AD=# “ VRAM” < X 1 * Y 1 > : LS-PEEK < AB > 

11848 POKE AB » 1 90 : T I $= *' 000888 "^“POSITION": PÜKE45 1 4 » 255 s ÜSR ( 68 > 

11850 WHILE < VAL ( T I $ ) < 30 ) ANB ( 0=0 > BÛ 

11868 ' CURSÛR36, 11 SPRINT** 223" *30-VAL(TI$) :WAIT15 

11878 ' REPEATîHZ=FNA<l) 

11880 ' IF HZ > . 6 BO 

11890 ' X1=X1+1 

11908 ' ELSIF HZ > . 2 DO 

11918 * Xl^Xl-1 

11928 * ELSE 00 

11938 * X1=X1 

11940 * END IF 

11958 ' HZ=FNA( 1 > 

11966 * IF HZ >.6 DO 

11978 ' Y1=Y1+1 

11988 ' ELSIF HZ >.2 DO 

11998 ' Yi-Yl-i 

12008 * ELSE DO 

12010 ' Y1=Y1 

12020 ' END IF 

12830 ' UNTIL < XI >-10)*( Xl<=30)*< Y1 >=2)*< Yl<=16) 

12Ô48 ' PORE AD* LS 

12058 ' AD=#“ VRAM" ( X 1 » Y 1 ) s LS-PEEK < AB > 

12Û60 ' POKE AD» 190:# "POSITION" 

12078 ' KEYR* 

12880 ' IF R$< >“ ** DO 
12090 ' CASE R* OF 

12180 ' WHEN "Z" DO 

12118 ' Xl-Xl+2 

12128 * WHEN "X“ DÛ 

12138 ' Xl=Xl-2 

12148 7 WHEN "N** Bü 

12158 ' Yl=Yl-2 

12168 ' WHEN **M“ DO 

12178 * Yl=Yl+2 

12188 ' OTHERWISÊ 

12198 ' ENBCASE 

12208 ' POKE AD» LS 

12218 ' AD=# , *VRAM**(XliYl>ïLS=PEEK(AD) 

12228 ' POKE AD*190!€‘*POSITION" 

12230 * ENBIF 

12248 * B=-<<X1=X0)ANO<Y1=Y0>> 

12258 WENB:USR<71) 

12268 IF D DO 


COMBAT ENTRE PIRATE 
ET CORSAIRE. 


CURSÛR17 * 20 : PRINT-LOCKED** 

CURSOR0 * 22 s PR I NT " MISSILES VERROUILLES SUR OBJECTIF** 

WA I T5O0 î CURSÛR0 * 22 
PRINTSPC < 10 > ï " ' SPACE ' :MISE A FEU 
REPEAT 
GETRS 

UNTIL R$=" " 

FOR J -255T 08ST EP-5 ï FQRK-0T O255SÎEP60 : P0KE45 1 4 » K : P0KE45 1 4 * J : USR < 68 > 

NEXTK»JîUSR<71) 

MO VE 19» 15SPL0T1 *40*30 
M0VE63 ♦ 15SPL0T1 *41 *30sWAIT200 

CURS0R1 1 » 19:PRINT" , , “ 

CURSOKIIiWWïNT fPTUATE BETR0TT1 

CURS0R1 1*21 SPRINT" » » “ 

C$<Z » 1 ï*"0" *C*<Z »2>*"0" 

ELSE DO 

PRINT"KVous n'avez pu détruire le pirate" 

USR (62) :WAIT500 

PRINT"8Deux Exocets version Mer/her viennent" 

PRINT"de couler le corsaire qui vous prote- -geait." 
USR(62):WAIT500 

PRINT"Essayez de filer avant d'avoir des ennuis..." 

WAIT500:A«(I*6)= M N U 


12278 J 
12288 ' 

12290 ' 

12380 * 

12318 * 

12328 ' 

12338 ' 

12340 ' 

12350 
12360 
12370 
12380 
12390 
12400 
12410 
12420 
12430 
12440 
12450 
12468 
12470 
12480 
12490 
1 2500 E^ : 

12510 0" ATTENTE" 

12520 RETURN 

12530 REM 

12540 PROCEDURE-POSITION" 

12550 CURSÛR4* 7 SPRINT USING"###" 5X1-X0 
12560 IF SGN(X1-X0)=1 DO 
12570 ' CURS0R5»7SPRINT"+" 

12580 ENDIF 

12590 CURSÜR4» lSsPRINT USING"###" SY0-Y1 
12600 IF SGN( Y0-Y1 ) a l DO 


PIRATE DETRUIT. 


CORSAIRE DETRUIT. 


AFFICHE SUR LE RADAR 
DE TIR LE SITE ET 
L'AZIMUTH DE LA 
CIBLE. 



12610 ' CURS0R5»15sPRINT"+" 

12620 ENDIF 

ÉÎÉIM 

12640 REH 

12650 PROCEDURE “VAINQUEUR" ( I > ïR*i K 
12660 ®“CADRE"s«"DATA*(I) 

12670 CURSOR2»2sPRINT“Voici donc le 
12630 PRINT"SSvainqueur !“ 

12690 PRINT"SSLa Compagnie lui" 
12700 PRINT"SSadresse ses " 


IL Y A DONC UN 
VAINQUEUR !!! 


12710 PRINT"SSfel icitations et lui" 

12720 PRINT"SSperi»et de prendre" 

12730 PRINT"5Sune retraite meritee" 

12740 TÉHPO7:REPEAT:HUSIC"ClDlElF161FlElDlClRr , sK*K+lîUNTILK=50 
12750 CURS0R6* 20 SPRINT "Tapez une touche" 

12760 REPEATîGETRfsUNTILRiO"" 

12770 CURSÛR6#22sPRINT"** AU REVOIR «*" 

IMlIBlillIiM 

12790 RETURN 

12810 PROCEDURE"CARTON"SK ÇA PARLE DE SOI... 

1 2828 X0=VAL (C$(Z>1 ) ) : Y0=VAL (C*< Z»2) ) 

12830 X1=VAL(A*(I»3))SY1=VAL(A$(I»4)) 

12840 HOVEX0*2»49-Y0*2 

12850 PLÛT 1 » X 1*2 » 49-Y 1*2 s CURSORX0 * Y0 s PRINTCHR$ ( 103 ) 

12860 WAIT150:K=1SREPEATSTEMPO7:HUSIC M C1D2E1F1G1A1B1-C3":K=K+1SUNTILK=50 
12870 PRINT"Rûuh la la ! Quel carton !" 

12888 WA1T300 

12898 PR.I NT "SLa prochaine foistlouez les services" 


12900 PRINT"d'un corsaire ‘"SWAIT500 


12910 PRINT"SC' est facile»pas chenet ca peut éviter gros...." 

12920 WAIT1000 

1 2930 A$ ( I » 1 ) =STR* < VAL < A$ < I # 1 ) ) - 1 ) 

12940 A$( I #7)-“9" 

12950 RETURN 

15000 REH 

15010 REH ZONE DES FUNCTIÛNS 
15020 REH ' 

15030 FUNCT ION "SELECT "(S4) ïK 
15040 IF S*="Viande" DO 
15050 ' K=8 

15060 ' ELSIF •S$="Frui ts" DO 
15070 ' K=9 

15080 ' ELSIF S$="Or" DO 
15090 ' K=10 

15100 ' ELSIF S*="Bois" DO 
15110 ' K-l 1 

15120 ' ELSIF S$="Textile" DO 
15130 ' K s 12 
15140 ' ELSE DO 
15150 ' K=13 

15160 ENDIF 
15170 RESULTA 

15190 FUNCTION"PROX IMITE" ( I0»Z0»L0#R1 ) ï XI » X2» X3* Y1 >Y2*Y3»D»R0*SXtSY» J 
15200 X1=VAL< A$( I0»3) ) s Y1=VAL(A$< I0»4> ) 

15210 X2=VAL < T* ( Z0 ♦ L0 ) ) s Y2=VAL ( T* ( Z0 » L0+ 1 ) ) 

15220 X3=ABS < X2-X 1 ) s Y3=ABS ( Y2-Y 1 ) 

15230 D=(X3<=R1)AND(Y3<=R1) 

15240 IF (X3<=1)AND(Y3<=1) DO 
15250 ' D=-l 
15260 'ELSE DO 

15270 ' X3=- ( X2-X 1 ) : Y3=- ( Y 2- Y 1 ) 

15280 ' R0=INT(SQR(ABS(X3)t2+ABS(Y3)t2) ) 

15290 ' SX=X3/R0sSY=Y3/R0 

15300 ' FOR J=1TOR0-1 

15310 ' X2=X2+SX s Y2=Y2+SY 

15320 ' IF PEEK(# M VRAM"(X2»Y2)>=206 DO 

15330 ' D=-l 

15340 ' ELSE DO 

15350 ' D=D AND (PEEK(t" VRAM" ( X2» Y2) ) = 0) 


PERMET D'ACCEDER A 
LA BONNE CASE 
DANS A$(,) 


RECHERCHE SI PROXIMITE 
AVEC UN PORT OU UN 
PIRATE (Y COMPRIS 
PRESENCE D'OBSTACLES! 
REND VRAI! -1)SI 
PROXIMITE, FAUX (0) 

SI NON. 


15360 ' ENDIF 
15370 ' NEXT 
15380 ENDIF 
15390 NULLT*(0.0> 


15400 RESULTA 


! CALCULE L'ADRESSE 

15420 FUNCTION“VRAM"(C»L) ïft 


15430 R=53248+ ( L*40 ) +C 


j V-RAM A PARTIR DE 

15440 RESULTER 
15450 REH 


! COLONNE, LIGNE. 


15460 FUNCTION"HAXr , (K,N0);L.I.J.X.V -Sî- 
15470 COPY T1(0.0).TF<0.0) 

15480 L*INT(N0/2> 


15490 WHILE LO0 DO , 

15500 7 FOR I*L+t TON0*X»T1(I*K)IY«T1(1#1) 

15510 ' FOR J* X -LTO 1 STEP-L 
15520 ' IF X<T1 < J.K) DO 

15530 ' 

1KS0 ' Tl<J+L.K>=Tl(J»K>tTl<J+L»K>*Tl(J»K) 

15560 ' T1(J»K)*XJT1(J»1)*Y 

15570 ' ENDIF 

15580 ' NEXTJ 

15590 ' NEXTI 

15600 ' L«INT(L/2) 

15610 WEND 

15620 IF T1<1#K)>T1<2»K) DO 
15630 ' HX*T 1(1*1) 

15640 "EL SE DO 
15658 ' «X*0 

15660 ENDIF 
15670 RESULT*MX 

15680 REM 

15900 REH 

15910 REM ZONE DE DATA'S D ' ADRESSE VRAM DES SIX ZONES 
159» REM 

16800 REM DATA'S ZONE 1 
16001 DATA 13 

16802 DATA 53414 #53417 #53422 >53424 

16003 DATA 53453.53465 

16004 DATA 53492.53505 

16005 DATA 53533.53544 

16006 DATA 53573.53583 
16087 DATA 53613.53622 

16808 DATA 53654.53654*53658.53661 

16009 DATA 53698.53700 

16010 DATA 53737.53740 

16011 DATA 53777.53779 

16012 DATA 53818.53818 

16020 REM DATA'S ZONE 2 

16021 DATA 19 

16822 DATA 53335.53337 
16023 DATA 53374.53378 
16824 DATA 53414.53422 

16025 DATA 53453.53462 

16026 DATA 53492.53503 
16827 DATA 53532.53542 

16028 DATA 53571.53579 

16029 DATA 53611*53619 

16030 DATA 53651.53659 
16831 DATA 53692.53702 

16032 DATA 53732.53743 

16033 DATA 53774.53783 

16034 DATA 53815*53822 

16035 DATA 53856.53861 

16036 DATA 53897.53901 

16037 DATA 53937.53940 

16038 DATA 53977.53979 

16039 DATA 54017.54019 

16040 DATA 54058.54058 

16050 REM DATA'S ZONE 3 

16051 DATA 25 

16852 DATA 53289.53292 

16053 DATA 53329.53334 

16054 DATA 53369.53375.53383.53385 

16055 DATA 53409*53415*53422.53426 

16056 DATA 53450.53454.53461.53466 

16057 DATA 53491.53492.53500.53506 
16858 DATA 53539.53545 

16059 DATA 53580*53580*53583.53584 

16060 DATA 53737.53739*53741.53742 

16061 DATA 53776.53784 

16062 DATA 53816.53825 

16063 DATA 53857.53865 

16864 DATA 53898.53899*53903.53904 

16065 DATA 54050*54052 

16866 DATA 54089.54093.54097.54098 

16067 DATA 54129*54140 

16068 DATA 54170.54180 

16070 REM DATA'S ZONE 4 

16071 DATA 12 

16072 DATA 53330.53334 

16073 DATA 53369.53381 

16074 DATA 53409.53422 

16075 DATA 53449.53463 

16076 DATA 53498.53504 

16077 DATA 53535.53538.53541.53545 

16078 DATA 53582.53585 


UTILISE POUR DETERMINER 


LE VAINQUEUR 
(NOTER LE TRI DE 
TYPE SHELL-METZNER 


'BRICOLE'). 


ADRESSE V-RAM 
DU PLANISPHERE 
DE CHACUNE DES 
SIX ZONES. 


DATA 53621» 5362$ 

DATA 53660» 53665 
DATA 53699 » 53705 
DATA 53739» 53744 
l REH DATA'S ZONE 5 
DATA 28 

; DATA 53289.53311 
: DATA 53329» 53351 
i DATA 53369.53391 
i DATA 53409.53431 

> DATA 53449,53471 
' DATA 53489,53511 
3 DATA 53529.53548 

> DATA 53572,53575,53581,53587 
3 DATA 53622.53627 

1 DATA 53665,53667 

2 DATA 53697,53697,53706,53706 

3 DATA 53736,53742,53751,53751 

4 DATA 53775,53783,53790,53791 

5 DATA 53809,53823,53829,53831 

6 DATA 53849,53863,53868,53871 

7 DATA 53889.53911 

8 DATA 53929,53951 

9 DATA 53969,53991 

0 DATA 54009,54831 

1 DATA 54049,54071 

2 DATA 54089,54111 

3 DATA 54129,54151 

0 REH DATA'S ZONE 6 

1 DATA 20 

:2 DATA 53458,53462 

:3 DATA 53497,53503 

>4 DATA 53536*53543,53548,53548 

5 DATA 53576,53584,53587,53589 

>6 DATA 53617,53629 

\7 DATA 53653,53653,53658,53668 

>8 DATA 53692,53694,53698,53707 

>9 DATA 53731,53734,53738,53746 

50 DATA 53771,53774,53778,53786 

il DATA 53812,53821,53824,53825 

32 DATA 53853,53860 

33 DATA 53894,53899 

34 DATA 53936,53938 

38 REH 

80 REH COUVERTURE 
18 PR I NT M 8808880 H 
20 PRINT"TTTTT RRR AA DDE 

30 PR INT" T R R A A D 

40 PR INT" T R R A A D 

58 PRINT" T RRR AAAA D 

6Ô PRINT" T R R A A D 

7fl PRINT" T R R A A DDI 


I N N GGGG" 

I NN N G" 

I N NN G" 

I N N G GGG" 

I N N G G" 

I N N GGGG" 


, PRINT"888SUn jeu de commerce maritime..." 

i TEMP03ïF0RX=lT03îHUSIChD>sNEXT 

> WA I T 200 
l RETURN 
i REH 

) REH REGLE DU JEU 

3 PRINT"B"ïTAB(3) î “Réglé du jeu (O/N)? 

ï REPEATïGETR$îUNTIL(R*="0")0R(R4="N") 

3 CASE R* OF 
3 ' WHEN "0" DO 

3 ' PRINT"B88Vous devez etre le premier a^ posséder 

3 ' PRINT" les six sortes de fret en cale." 

a ' PR I NT" OSE n cas d' égalité a la fin du tour de 

3 ' PRINT" jeu» 1 e plus fort tonnage l'emporte." ^ 

8 7 PRINT"S'il y a encore égal ite.c'est le capi- 

0 1 PRINT"-taî restant qui fera la différence." ^ 

0 ' PRINT"8SChaque zone est infestee par un pirate^ 

0 ' PRINT"qui ne vous laissera que peu de chances." 

0 ' PRINT"5Un service de location de corsaire- 

8 ' PRINT"garde du corps est a votre disposition" 

0 ' PRINT "dans chaque port." 

0 ' «"ATTENTE" 

.0 ' OTHERWISE 
8 ENDCASE 
.0 RETURN 
0 REM 













ptS°® 



Choisissez une carte parmi 21 , le 5000 vous 
dira de façon scientifique quelle carte vous avez 
choisie. Ce programme est facilement trans- 
posable sur PC-1350 et 2500. 


10 REY J' initialise le jeu de carte 

20 JEL$= " " : FOR 1=0 TO 3 : FOR J=1 TQ 1 3 : JEl$ = JEU$+R IGHT$ i STR$ < 
T J. I _ 

30 REY Je le mélangé 

40 A = < VAL i R 1GHT$< T 1 YE$. 2> ' + 1 > * < VAL < Y ! D$ ( T I YE$. 4. 2) ) + 1 ) :R 
50 A= î Y T ( RYD < 1 > « LEN ( JEl'$ > / 2 > * 2 + 1 : YE$=XES+M I D$ < JEU$. A. 2) 

60 JEUj$= LEFT$< J£L$. A- 1 > + Y I D$ < JEL$. A + 2 > : IF JEL$<> " " THEY 5 
70 REY Pour le jeu, je ne prends que 21 cartes. 

80 JEU$=LEFT$ ( YE$. 21*2) : DI Y TAS$ < 2 > . RES$ < 2 > 

90 KEY OFF : CLS : COLOR 1 1 : LOCATE 1 . 1 . 0 : PR I MT" Vo i c i des cartes. 
100 LOCATE 2. 1 : PRI YT’Cho i s i ssez en une et indiquez moi. si" 
110 LOCATE 3. 1 : PRIYT" e 1 1 e est dans la rangée 1.2 ou 3.": FOR 


:=JEU$+RIGHT$<STR$< I >. 1 > +CHR$ < 48 + J ) : YEX 


: COLOR 3 


i rangée i. 

120 TAS$<1 ) = "“ :TAS$<2>=” ' : FOR P = 0 TO 6 : FOR Q = 0 TO 2:S$=L 

| ‘ Q ) + S $ 

130 JEL'$ = V:ID$< JEL$. 3) :V = 360 + 40*P:.W = Q X 26:A = V'AL< LEFT$ ( S$. 1 
140 B = ASC < R IGHT$<S$. 1 > ) -48 : GOSUB 310: YEXT Q. P 
150 LOCATE 5, 1 . i : COLOR 1 1 : PRIYT" RANGEE ?' : :CO$= IYKEYS: IF 
Y 150 


: FOR WW = Û 


2 : T AS$ < 0 > = ” " 


2:S$=LEFT$< JEU$. 2> : TAS$(Q> =TAS 


1C0$<” 1 ' >OR(CO$>' 


LOCATE 5. 1. 0: PRIYT” 


" :RES$<Û'=TAS$( 1 ) + TAS$ ( 0 ) +TAS$ < 2 > 


170 RES$ ( 1 >=TAS$<0> +TAS$< 1 > + TAS$ < 2 > : RES$ ( 2 > =TAS$ < 0 > + TAS$ < 2 ) +TAS$< 1 > 


JEU$=RES$ < VAL < CO$ ) - 1 ) : CLS : LOCATE 1. 1 : PRIYT” Et maintenant 
CLS: RESTORE 230 : S$ = Y I D$ ( JEU$. 21.2) : A = VAL < LEFT$ ( S$. 1 ) i 
B = ASC (RI GHT$ < S$. 1 i >—48: FOR 1=0 TO A : READ A$: YEXT: RESTORE 


: YEXT WW 


240: FOR 


B$ : YEXT : PR I YT" C' eta i t 


: A$ : V = 5 0 0 : W = 0 : GOSUB 310: LOCATE 


pique 
e deux" 

. " e dix 
. "11101 
00111”. 
00111". 
”00111" 


. "carreau”, "treffle” 

. " e t r o i s " . " e quatre". 

” , " e va 1 et ” . " a dame ” . 

1 1” , " 1 1 1 1 1 1 1” . " 1 1 1 1 1 1 1 
■ o 1 1 1 1 r . ” 1 1 1 1 1 1 1" . ” 1 1 
"011111". "1111111". "01 
. " 1 1 0 i 0 11 ” . ” 1 1 1 1 1 1 1” . ” 
TO A x 7 : READ A$: YEXT: FC 
LÎYE -<V+38. W + 24 ) : L I YE 


Z4U Un i h as . e deux . e trois . e quatre . e cinq . e 
250 DAT A ” e neuf ” . " e d i x ” , " e va 1 et ” . " a dame " . ” e roi” 

260 DATA " 0 1 000 1 ” . " 1 1 1 0 1 1 1” , " 1 1 1 1 1 1 1” . " 1 1 1 1 1 1 1" . 0 1 1 1 11 " . 
270 DATA "0001 ". "00111”. 011111". 1111111". 1 1 1 1 1 1 1 ” . 000 

280 DATA "0001". "00111". "011111". "1111111". "011111". “0011 
290 DATA "00111". "00111". " 1 1 0 i 0 1 i " . "1111111". "1101011". " 0 ■ 
300 RESTORE 260: FOR I = 1 TO A x 7 : READ A$: YEXT: FOR 1=0 TO 6:; 
310 LIYE <V. W)-(V + 38. W> : LIYE -<V+38. W + 24) : LINE -<V, W + 24) : 
320 IF B> 1 0 THEY 470 

330 FOR K= 1 TO B: RESTORE 350: FOR G=1 TO B x i 3- 1 > /2+K : READ l 

340 X = V+C:Y = W + D: GOSUB 260 : YEXT: RETURY 

350 DATA 16. 15 

360 DATA 2. 15. 30. 15 

370 DATA 2. 15. 16. 15. 30. 15 

380 DATA 2. 8. 2. 22. 30. 8. 30. 22 

390 DATA 2.8.2.22.16.15.30.8.30.22 

400 DATA 2.8.2,22.16,8.16.22.30.8.30.22 

410 DATA 2.8.2.22.9.15.16.8.16.22.30.8.30.22 

420 DATA 2.8.2.22.9.15.16.8.16.22.23.15.30.8.30.22 

430 DATA 2.8.2.22.1 1.8.1 1.22.16.15,21.8.21.22.30.8.30.22 

440 DATA 2. 8. 2. 22. 7. 15. 11.8.1 1. 22. 21. 8. 21. 22. 26. 15. 30. 8. 3 

450 READ A$ : FOR J = 1 TO LEY <A$> 

460 PSET < X+ 1 , Y-J+ 1 ) . VAL ( VI D$ < A$. J. 1 > > : YEXT J : RETURY 
470 RESTORE 490:FOR 1 = 1 TO < B- 1 1 > *5 : READ A$ : YEXT : X = V + 2 1 : 
480 FOR 1=0 TO 4: GOSUB 450: YEXT I : X = V+ 1 i : Y = W+ 1 5 : GOSUB 26 
490 DATA ” 1010010010001 1 101 11”. ” 101010101000100001”. ”101 
500 DATA ”101010101000100001”. ”010010101110111001" 

510 DATA 01 10001001000101 1 1". ”0101010101101101". "0101011 
520 DATA "0101010101000101”. ”011001010100010111" 

530 DATA ”00001100111001”. ”00001010101001". "000011101010 
540 DATA ”00001010101001 ”. ’ 0000 1 0 1 0 1 1 100 1” 


e . e cinq . e six . e sept . 
” . ' e roi” 

1 1 r . :oi 1 1 ii ” . ”ooi 1 1 “ . ”oo 
”1111111”. ”0001 ”. ”011111” 

”01 1 1 11 ” . ” 001 1 i ” . ”0001 ” 

■ . " 1101011 ". "0001 ". ”01111 
: FOR 1=0 TO 6: GOSUB 450: YEXT 
I YE -(V. W + 24) : LIYE -<V. W ) 

3-1 >. /2 + K: READ C, D: YEXT G 




I : RETURY 


360 DATA 
370 DATA 


400 DATA 
410 DATA 
420 DATA 
430 DATA 


490 DATA 
500 DATA 
510 DATA 
520 DATA 
530 DATA 
540 DATA 









BULLETIN D'INSCRIPTION AU CLUB DES SHARPENTIERS 


Je m'inscris 

au CLUB DES SHARPENTIERS 

Je bénéficie de tous les 
avantages du CLUB 

Je suis abonné pour 1 AN 
au BULLETIN du CLUB 

Je vous joins mon règlement 
I FRANCE : 160 F 

“ ETRANGER : 200 F 

CHEQUE N° BANQUE 

SIGNATURE 


NOM PRENOM 


ADRESSE 


CODE POSTAL / VILLE 


PROFESSION ÂGE 

MACHINE POSSEDEE DEPUIS 


ACHETÉE CHEZ . 


UTILISATION PRINCIPALE DE VOTRE MACHINE 



Club des Sharpentiers 151/153, avenue Jean-Jaurès 93307 AUBERVILLIERS CEDEX Tél : 834.93.44 



